1. Информатика
  2. Условный оператор введите

Условный оператор

введите текст программ

selman20061 selman20061    3   21.09.2019 15:16    0

Ответы
svet0chka svet0chka  08.10.2020 07:24

var a:string;

begin

Writeln('В каком году началась Великая Отечественная война?');

Readln(c);

if c = '1945' then Writeln ('Правильно!')

else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Tigrica2017 Tigrica2017  15.12.2020 10:39
2. Определите вид компьютерной графики по рисунку: СОР ​...
Edinorog1Panda Edinorog1Panda  24.09.2019 10:30
Уменя почему то нету режима инкогнито, совсем, версия браузера последняя...
karo35 karo35  24.09.2019 10:30
100 ! составьте программу на языке паскаль: вычислите длину(l) отрезка ав, а(ха, уа) и в(хв, ув), l=корень из (ха+уа)^2+(хв+ув)^2...
iibixa1 iibixa1  24.09.2019 10:30
Нужно написать программу, которая определяет, является ли целое число простым. на уровне 9 класса, попроще что бы было. в паскале. заранее !...
Акируя Акируя  24.09.2019 10:40
Составьте алгоритм для решения следующей . в школе k учеников изучают французский язык, что составляет p% от числа всех учеников. сколько учеников учится в школе?...
Aleshchksuni Aleshchksuni  24.09.2019 10:40
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i: =; while i =8 do begin writeln( ! ); i: =i+1 end;...
andreeva1979ir andreeva1979ir  24.09.2019 10:40
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i: =; while i =3 do begin writeln( ! ); i: =i-1 end;...
Xtarlus Xtarlus  24.09.2019 10:40
Запишите значение переменной s, полученное в результате работы следующей программы. var s,k: integer; begin s : = 0; for k : = 6 to 12 do s : = s+10; writeln(s); end....
Zaharza1 Zaharza1  24.09.2019 10:40
C++ stl; (vector) подскажите как в интервале заменить элементы пример: создали последовательность 1 2 3 4 5 6 7 8 ввожу интервал например от 2 по 5 заменить на 0 вывод:...
sirozazuruhin sirozazuruhin  24.09.2019 10:40
Определите, что будет напечатано в результате работы следующей программы. var s, k: integer; begin s: = 0; for k: = 4 to 11 do s: = s + k; writeln (s); end....

Популярные вопросы