1.
<span>var a,b,c,t:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
t:=a;
a:=b;
b:=c;
c:=t;
writeln('a = ',a,' b = ',b,' c = ',c);
end<span>.
Пример:
</span><span>a, b, c:
5 8 3
a = 8 b = 3 c = 5
2.
var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
writeln(a,' / ',b,' = ',a/b:6:3);
end.
Пример:
<span>a, b:
5 8
5 / 8 = 0.625</span></span></span>
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Photomath вот это приложение