Практическое задание по информатике на тему "Алгоритмы на языке Pascal"

Запустить программу Pascal ABC, оформить в отдельных вкладках

(выполнить задание в фигурных скобках):

1. программа с условием

program uslovie;

var a,b:string;

begin

writeln ('Привет, тебе нравится погода?');

readln(a);

if a='да' then writeln('отлично, мне тоже')

else writeln('да уж, в такую погоду лучше сидеть дома');

writeln ('Давай завтра сходим в кино?');

readln(b);

if b='давай' then writeln ('Отлично, я завтра тебе позвоню)))');

if b='хорошо' then writeln ('Отлично, я завтра тебе позвоню)))');

if b='нет' then writeln ('ну вот, очень жаль(((')

else writeln ('Я тебе завтра позвоню')

end.

{задание: дополнить программу двумя вопросами с условиями}

2. программа определения четности числа

program chet;

var n: integer;

begin

    writeln ('Введите целое число: ');

    readln (n);

     if n mod 2 = 0  then  writeln ('Оно четное')

    else  writeln ('Оно нечетное');

 end.

{задание: написать программу определения делимости числа на 5}

3. программа определения максимального числа из трех

program maxsi;

var    a1, a2, a3, max: integer;

 begin

    write ('Введите три числа: ');

  readln (a1, a2, a3);

  if a1 >= a2 then max := a1

   else max := a2;

    if a3 > max then  max := a3;

     writeln ('Максимальное из них: ', max);

 readln

end.

{задание: исправить программу для проверки максимального из двух чисел}

{задание: написать свою программу общения с одним из родителей, содержащую 5 вопросов и 2 с условием}