--------------------------------------Вроде так--------------------------------------
Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.
1(a)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
writeln(c);
readln;
d:=a-b;
writeln(d);
readln;
end.
b)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
c)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа'); //здесь вводим два числа
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
2.
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите три числа');
readln(a,b,c);
d:=a*b*c;
writeln(d);
readln;
end.
3.
Program Treugol;
var a,b,c,d:real;
begin
writeln('введите два числа');
readln(a,b);
c:=2*(a+b);
d:=a*b;
writeln(c,d);
readln;
end.
4.
Program Goda;
var R:real;
begin
write('введите R');
readln(R);
<span><span>d:=R*356;
</span><span>c:=d*24;
</span><span>m:=c*60;
</span><span>s:=m*60;
</span></span>writeln(d);
writeln(c);
writeln(m);
writeln(s);
readln;
end.
Надеюсь на лучший ответ и на спасибо:)
Var a,b,s1,s2,s3:integer;
begin
readln(a,b);
s1:=a div 100 + b div 100;
s2:=(a div 10 mod 10)+(b div 10 mod 10);
s3:=a mod 10 + b mod 10;
writeln('s1 = ',s1,' s2 = ',s2,' s3 = ',s3);
if (s1>s2) and (s2>s3)
then writeln('Последовательность убывающая')
else writeln('Последовательность неубывающая');
end.
Пример:
972 761
s1 = 16 s2 = 13 s3 = 3
Последовательность убывающая