Question

помогите пожалуйста как можно быстрее задачи на паскале

Answer 1

Ответ:

1 Задача

var n,a:integer;

s: real;

begin

n:=0;

s:=0;

for a:=1 to 100 do

begin

if a mod 10 = 3  then  

begin  

n:=n+1;  

s:=s+a;

end;

if a mod 10 = 2 then  

begin

n:=n+1;

s:=s+a;

end;

end;

s:= s / n;

writeln(s);

end.

2 Задача

var s,N,K,y,z: integer;

begin

s:=0;

writeln('Введите кол-во чисел');

readln(N);

writeln('Введите число K');

readln(K);

for y:=1 to N do begin

readln(z);

if Abs(z) mod 10+ Abs(z) div 10 = K then s:=s+1;

end;

writeln(s);

end.

3 Задача

var x,a,s:integer;

begin

s:=0;

readln(x);

readln(a);

while a<0 do

begin

if a=x then begin s:=s+1  

end;

readln(a);

end;

writeln(s);

end.

Объяснение: