Используя оператор if…then…else составьте программу, которая бы в ответ на введённую оценку по информатике выводила на экран следующий текст: если оценка «5», то «молодец, я тобой горжусь! »(1) если оценка «4», то «я рад, надеюсь, будет «5»» (2) если оценка «3», то «не ленись и всё получится» (3) иначе «ты, наверное, не ходишь на уроки» (4)

Var mark: integer; begin readln(mark); if mark=5 then writeln('молодец, я тобой горжусь! ')   else if mark=4 then writeln('я рад, надеюсь, будет «5»')   else if mark=3 then writeln('не ленись и всё получится')     else writeln('ты, наверное, не ходишь на уроки'); end. пример: 4 я рад, надеюсь, будет «5»

Program helloworld; var x: integer; begin    readln(x);     if(x=5) then writeln('молодец, я тобой горжусь! ')    else if(x=4) then writeln('я рад, надеюсь, будет «5»')    else if(x=3) then writeln('не ленись и всё получится')    else writeln('ты, наверное, не ходишь на уроки'); end.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

 

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

 

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

 

обрамления там везде одинаковые