Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program ; var n : integer; begin for n: = 10 to 99 do if n mod 13 = 0 then writeln(n); readln; end.
космонафт відповідь на
2^3 = 8 цветов (скорее всего оттенки серого)
чесно говоря без них куда легче
var s: string;
i: integer;
begin
read(s);
for i: = 1 to length(s) do
if i mod 2 = 0 then s[i]: ='*';
writeln(s);
end.
с ними только больше кода
if i mod 2 = 0 then begin
delete(s,i,1);
insert('*',s,i);
end;
Популярные вопросы