Задача 1)
var a: real;
begin
writeln('Вычислите выражение 12*6 - 13*3');
readln(a);
if a=33 then writeln('Правильно') else writeln('Ошибка в расчётах');
end.
Задача 2)
var a: real;
begin
writeln('Сколько вам лет?');
readln(a);
if a<14 then writeln('Вы ещё не получили паспорт!') else writeln('Паспорт вами получен!');
end.
Задача 3)
program pocupka;
var a: string;
begin
writeln('Какое мороженное вы хотите купить эскимо, фруктовый лёд или пломбир?');
readln(a);
if a='эскимо' then writeln('50 рублей');
if a='фруктовый лёд' then writeln('30 рублей');
if a='пломбир' then writeln('48 рублей');
end.
Объяснение:
Так как скорость одинаковая, можно решить через пропорции:
Файл 2 Кбайт передаётся со скоростью 1024 бит/с.
Другой файл передаётся со скоростью 512 бит/с, то есть в 2 раза медленнее. Значит и передаваемый файл получится в 2 раза меньше. 2/2 = 1 Кбайт = 1024 байт.
Или же можно решить так, пошагово вычисляя:
Файл1 = 2 Кбайт = 256*1024 байт.
Скорость1 = 1024 бит/с = 1024/8 байт/с.
Время1 = ? = Файл1/Скорость1 = 
= 16 с.
Время2 = Время1 = 16 с.
Скорость2 = 512 бит/с.
Файл2 = ? = Скорость2*Время2 = 512*16 бит = 
байт = 512*2 байт = 1024 байт.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
массив: РЯД 100 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО
Вывод.ЧВещ("%g ", массив[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО Вывод.Цепь("Нету.") КОН
КОН Задание.