Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
клавиши переключения регистров caps lock, shift, ctrl, alt.
389 365 402 201
триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один
for i : = 1 to length(s) do
begin
res : = res + s[i];
if i mod 2 = 0 then
end;
writeln(res);
i : = pos(" ",s); {ищем первый пробел}
delete(s; i; 1); {удаляем первый пробел}
i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}
writeln(s[i-1]); {выдаем знак который находится перед пробелом}
var a,b,c,d: integer;
read(a,b,c,d);
if (a*b*c*d mod 3 = 0) then
writeln("pravda")
else writeln("nepravda");
end.
Популярные вопросы