1)
Program n1;
var a,b: real;
begin
readln(a,b);
writeln('разность: ',a-b);
writeln('произведение: ',a*b);
writeln('сумма: ',a+b);
writeln('частное: ',a/b);
end.
2)
Program n2;
var a,b,c: real;
begin
readln(a,b);
c:=sqrt(a*a+b*b);
writeln('площадь: ',0.5*a*b);
writeln('периметр: ',a+b+c);
end.
3)
Program n3;
var d1,d2,d3,a: integer;
begin
write('введите число: ');
readln(a);
d1:= a div 100;
d2:=a div 10 mod 10;
d3:=a mod 10;
writeln(d3,d2,d1);
end.
блок схемы кстати нет, так что не обессудь
1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
500
x=0
x=x+1
x=x+1
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x*2
x=x+1
x=x*2
x=x*2
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)
Ответ:
1)
Begin
Count:=0;
repeat
Read (ch);
If ch> 0 then inc(count);
Until ch<>0
Write(count);
End.
2)
Begin
Sum:=0;
Count:=0;
repeat
Read (ch);
Sum:=sum+ch;
If ch mod 9=0 then inc(count);
Until sum<200
Write(count);
End.
Нет таких доказательств. Как можно моделировать в программе, которая предназначена совсем для другого?