Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>
2) 640х480х2=614400 байт
614400 / 1024 / 1024 = 0,5859375 мбайт
Смотрим на кол-во строк в которых ширина меньше 15 . таковых 4. смотрим на графу вид и из 4 выбираем только ч/б. таковых 2.
не 3, тк в условии написано МЕНЬШЕ 15, а не МЕНЬШЕ ИЛИ РАВНО 15.
ОТВЕТ-2
Var
mas : array [1..5] of longint;
sum : longint;
i: byte;
begin
for i:=1 to 5 do
begin
read (mas[i]);
if (mas[i] mod 4 = 0) and (mas[i] mod 10 = 6) then sum:=sum+mas[i];
end;
writeln (sum);
end.