Вычислить сумму ряда 1+1.5+2+2.5+...+30
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
Program z9; Var s1,s2,v1,v2,s:integer; t1,t2,v,t:real;Begin write('S1 = '); readln(s1); write('S2 = '); readln(s2); write('V1 = '); readln(v1); write('V2 = '); readln(v2); s:=s1+s2; t1:=s1/v1; t2:=s2/v2; t:=t1+t2; v:=s/t; writeln('Средняя скорость равна = ', v);End.
Var a,b,a1,b1:real;
begin
readln(a,b);
if a = b then writeln('Числа равны')
else
if a>b then begin
a1:=2*a*b; b1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b)
end
else begin
b1:=2*a*b; a1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b);
end;
end.