nail0391 » Сб дек 04, 2010 14:28
привет всем помогите пожалуйста
задание: даны числа от 1 до 20 надо каждые 3 числа сложить.
я сделал начало у меня первые 3 числа складывает мой вопрос: а как дальше мне остальные прописать?с помощью какой процедуры?
var
a,b,c,d,e,f,g,v,n,m,r,t,y,w,k,l,s,z,j,i:integer;
x:real;
begin
writeln('vvedite 1-20');
readln(a,b,c,d,e,f,g,v,n,m,r,t,y,w,k,l,s,z,j);
for i:=1 to 20 do begin x:=a+b+c;
end;
writeln('x:=',x:4:2);
readln;
привет всем помогите пожалуйста
задание: даны числа от 1 до 20 надо каждые 3 числа сложить.
я сделал начало у меня первые 3 числа складывает мой вопрос: а как дальше мне остальные прописать?с помощью какой процедуры?
var
a,b,c,d,e,f,g,v,n,m,r,t,y,w,k,l,s,z,j,i:integer;
x:real;
begin
writeln('vvedite 1-20');
readln(a,b,c,d,e,f,g,v,n,m,r,t,y,w,k,l,s,z,j);
for i:=1 to 20 do begin x:=a+b+c;
end;
writeln('x:=',x:4:2);
readln;