Регистрация
Школа5101
18.01.2023 22:55
Информатика
Есть ответ 👍

Задано число n . найти количество чётных цифр.

244
402
Посмотреть ответы 2

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

14251714
14251714
4,8(93 оценок)
Program prl; uses crt; var n, k: integer; begin read(n); if n mod 2=0 then k: =k+1; write(k); end.
homya4okm
homya4okm
4,4(3 оценок)

1.

var

a, b, s: real;

begin

s: =0;

writeln('введите величины: ');

readln(a,b);

s: =a*b;

write('площадь = ', s);

end.

2.

var

k, t, sum: real;

ck, ct: integer;

begin

sum: =0;

writeln('введите количество тетрадей: ');

readln(ct);

writeln('введите количество карандашей: ');

readln(ck);

writeln('укажите цену одной тетради: ');

readln(t);

writeln('укажите цену одного карандаша: ');

readln(k);

sum: =ct*t+ck*k;

writeln('суммарная стоимость покупки: ', sum);

end.

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