//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8
{все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют}
var
a: array[1..10]of real;
i,k:integer;t:real;
begin
writeln('Введите t');
{На экране появится текст "Введите t"}
readln(t);
{В этот момент появится курсор и можно будет ввести значение t}
writeln('Введите массив');
for i:=1 to 10 do
begin
readln(a[i]); {вводим элементы массива с клавиатуры}
if a[i]<t then {если элемент массива <t}
k:=k+1; {то считаем количество таких элементов}
end;
writeln;
writeln('количество: ',k);
end.
Сначала 9Кбайт переделываем просто в байты. Поэтому 9*1024=9216. Потом переводим в биты? 9216*8=73728. И делим на 2048. Получается 36 секунд.
program zagadki2;
var a, b, c, d:string;
label r;
begin
writeln('Привет, я программа, загаывающая загадки');
writeln('Будешь отгадывать ?');
readln(a);
if a = 'да' then writeln('Зимой и летом одним цветом.')
else
begin
writeln('пока');
goto r;
end;
Readln(b);
if b = 'ёлка' then writeln('правильно!')
else
begin
writeln('нет,попробуй ещё раз');
Readln(b);
if b = 'ёлка' then writeln('правильно!!!')
end;
writeln('Сидит красавица в темнице, а коса на улице.');
Readln(c);
if c = 'морковь' then writeln('правильно!')
else
begin
writeln('попробуй ещё раз');
Readln(c);
if c = 'морковь' then writeln('правильно')
end;
writeln('Не лает, не кусает, да в дом не пускает.');
Readln(d);
if d = 'замок' then writeln('правильно')
else
begin
writeln('попробуй ещё раз');
Readln(d);
if d = 'замок' then writeln('правильно');
end;
r:
end.