Регистрация
mushdal
12.01.2021 13:45
Информатика
Есть ответ 👍

Найти количество четных чисел в промежутке от 1 до n. n вводится с клавиатуры. в !

138
434
Посмотреть ответы 3

Ответы на вопрос:

Христя2017
Христя2017
4,8(51 оценок)

1.program ab; 2.var s, n : integer; 3.begin 4)s: =0; 5.for n: =1to10doif n mod2=0then s: =s+1; 6.writeln(s); 7.end.

vazovskiy2013
vazovskiy2013
4,6(55 оценок)

вроде так.

k : = n div 2;   if odd(n) then inc(k);   writeln(k);

ArbuzovAndrey
ArbuzovAndrey
4,8(76 оценок)
Var _500,_100,_50,_10,money_get: integer; beginwriteln('введите стоимость товара'); readln(money_get); while(money_get mod 10 < > 0) do        begin        writeln('стоимость должна делиться на 10, попробуйте еще раз');         readln(money_get);         end; while (money_get> =500) do        begin        _500: =_500+1;         money_get: =money_get-500;         end; while (money_get> =100) do        begin        _100: =_100+1;         money_get: =money_get-100;         end; while (money_get> =50) do        begin        _50: =_50+1;         money_get: =money_get-50;         end; while (money_get> =10) do        begin        _10: =_10+1;         money_get: =money_get-10;         end; writeln(_500,': 500 рублей',_100,': 100 рублей',_50,': 50 рублей',_10,': 10 рублей'); readln; end.

Популярно: Информатика