• придумайте 2 задачи на циклы и на ветвление на языке паскаль понятные 8 класснику  условие+решение

Ответы 2

  • read(a);while a>0 begin a:=a-1 end;read(a);while a<=10 begin a:=a+3 end;read(a);if a>4 begin write('+') end;read(a);if a!=4 begin write('-') end;Артём устроился на работу. Его задача собирать ягоды. Ему платят по 5 у.е. за ягоду, но только если ягод больше 20. Сколько заплатят Артёму, если он собрал N ягод?var N,a:integer;beginread(N);if N>20 thenbegina:=20*5elsea:=0end;print(a)end.
  • 1. найти сумму чисел с 1 до n

    Program ffff;

    Uses crt;

    var n,i,s:integer;

    begin

    writeln ('Кол-во цифр');

    readln (n);

    for i:=1 to n do

    s:=s+i;

    writeln (s);

    end.

    Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно

    Program ffff;

    Uses crt;

    var n,i:integer;

    begin

    writeln ('Сколько я беру обычно');

    readln (n);

    writeln ('Какое сегодня число');

    readln (i);

    if i mod 2 = 0

    then n:=n+10;

    writeln (n,' рублей я сегодня беру');

    end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years