1. Написать программу, задающую вопрос: «Сколько байт в килобайте?» и отвечающую: «Вы...

Question

1. Написать программу, задающую вопрос: «Сколько байт в килобайте?» и
отвечающую: «Вы правы» или «Вы ошиблись», в зависимости от ответа. Pascal Abc

Answer 1

Program vopros;
 var a:integer;
begin
 write('Сколько байт в килобайте?');
 readln(a);
if a = 1024
 then write('Вы правы')
 else write(Вы ошиблись')
end.