1. Умножаем скорость на 5, делим на 8 и на 1024. Ответ: 625
Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<-----
k := a;
while s < b do begins := s+k;<------k := k+1;<----end;writeln(k)end.
если
a=15 b=36
ответ будет :15
Program yrok;
var a:integer;
begin
writeln ('Введите месяц');
readln(a);
if a=1
then writeln('январь')
else if a=2
then writeln('Февраль')
else if a=3
then writeln('Март')
else if a=4
then writeln('Апрель')
else if a=5
then writeln('Май')
else if a=6
then writeln('Июнь')
else if a=7
then writeln('Июнь')
else if a=8
then writeln('Август')
else if a=9
then writeln('сентябрь')
else if a=10
then writeln('октябрь')
else if a=11
then writeln('ноябрь')
else if a=12
then writeln('декабрь')
else writeln('такого месяца нет');
end.