Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
Var s:string;
n,l,k,i:integer;
begin
write ('Введите строку: ');
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord('?');
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln ('Знак вопроса ни разу не встретился в строке.')
else writeln ('Знак вопроса встретился ',k,' раз строке.');
end.
Program yes_no;
var
n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 100 div 10) > 1 then
writeln('да')
else
writeln('нет');
end.
1б.2в.3в как то так вот это ответ