Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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]); {выдаем знак который находится перед пробелом}
вот на c:
#include < stdio.h> int main(void){ int i; for(i = 50; i > = -50; i -= 10) { printf("%d\n", i); } printf("\n"); system("pause"); return 0; }
а если число
var n,i,p: integer;
s: string;
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
writeln(n);
p: =1;
for i: = 1 to n do
p: = p*i;
writeln(p);
end.
ввод х | 2
х=х*х | x=4
у=1-х |y=-3
х=х*х |x=16
х=5*х |x=80
у=у+х |y=77
у=у*у
вывод у
Популярные вопросы