for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
readln;
end.
Ответ дал: Гость
ввод x = 1, y = 3
x = 3 - 1= 2
y = 2 * 2 = 4
x = 2 * 4 + 2 = 10
y = 4 + 10/2 = 9
вывод x = 10, у = 9
ответ. в результате работы программы получим: х = 10, у = 9.
Ответ дал: Гость
var s: string; i: longint; begin readln(s); for i: =length(s) downto 1 do begin if s[i]=' ' then delete(s,i,1); if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1); end; writeln(length(s)); end.
Популярные вопросы