Регистрация
кошка372
07.01.2021 11:00
Информатика
Есть ответ 👍

Дано целое число а. проверьте высказывание "число является нечётным" допишите фрагмент программы: begin var a: integer; begin if then else ; end.

289
449
Посмотреть ответы 2

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

anyasannikova1
anyasannikova1
4,7(90 оценок)
Begin  var a: integer; beginif a mod 2 = 1  then writein('число не является чётным'); else writein('число является чётным'); end.
kamilusmonov
kamilusmonov
4,8(25 оценок)
Var   i,w,q,e: integer; begin for i: =1 to 100 do begin q: =0; w: =i*i; e: =w; while e> 0 do begin q: =q*10+ e mod 10; e: =e div 10; end; if q=w then write(i,' '); end; end.

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