Мне в школе по информатике задали написать простую или не программу на языке pascal. за неимением компьютера скачал на самсунг pascalgui. найти program code ; var 2145: string; begin write ('введите код 2145: '); read(2145) write('molotok') end.

238

296

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

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

ktoto215

Информатика

4,7(38 оценок)

Program code; var s: string; begin write('введите код: '); read(s); if s='2145' then write('molotok') else writeln('no'); end. пример: введите код: 2145 molotok

6polih1

Информатика

4,6(42 оценок)

Program z1; var a: integer; beginwrite ('введите код 2145: '); read(a); writeln('molotok'); end. в pascal abc написал, все работает)) можно чуть усложнить, через if сделать.