первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)
результат выполнения
аб2в457где245*ж0247025020
2)
var s, r: string; i: integer;
begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.
Ответ дал: Гость
1 кбайт
1000 байт
1024 бит
1 байт
1 бит
Ответ дал: Гость
var i: integer;
begin
for i: = 35 to 87 do
if i mod 7 =1 then
writeln(i);
end.
Ответ дал: Гость
var x: array[1..10] of real; n: integer; begin for n: =1 to 10 do begin x[n]: =power(3,n)-5; writeln(x[n]); end; end.
Популярные вопросы