Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
10 50 true
8 45 true
6 40 true
4 30 true
2 25 true
0 20 false
k:=10;
t:=50;
while k>1 do
begin
k:=k-2;
t:=t-5;
end;
write(k,n);
Uses crt;var i,n,s:integer;beginn:=0;writeln('vvedite chislo');readln(s);for i := 1 to s don:=n+i;writeln(n);readln;end.
С
к
а
н
Компьютер
ы р
ш
ь
Решение на картинке :)
Ответ: 229
_________
by DENDEX™ (буду благодарен за выбор как лучший)