Регистрация
5656653256586865656
26.11.2022 13:06
Информатика
Есть ответ 👍

Дано трёхзначное число. определить, что оно чётно.

201
341
Посмотреть ответы 2

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

zoeves
zoeves
4,7(77 оценок)

program zzz; var x: integer; beginwriteln('vvedi chislo'); readln(x); if x mod 2=0 then writeln('×åòíîå') else writeln('íå÷åòíîå')end.

янамурадян
янамурадян
4,6(15 оценок)
Var k,kc,ks, r,rc,rs, l,lc,ls: integer; summa: integer; begin writeln('введите цену карандаша'); readln(kc); writeln('введите цену ручки'); readln(rc); writeln('введите цену линейки'); readln(lc); writeln('введите кол-во карандашей'); readln(k); writeln('введите  кол-во ручек'); readln(r); writeln('введите  кол-во линеек'); readln(l); ks: = k * kc; // цена карандашей rs: = r * rc; // цена ручек ls: = l * lc; // цена линеек summa: = ks + rs +ls; // общая цена всех 3-х writeln('сумма = ', summa; readln; end.

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