Составить программу на паскале вычислить сумму чисел натурального ряда, делящихся на 3, до тех пор, пока сумма не превысит 500. определить число членов суммы. значение суммы и число ее членов вывести на экран с соответствующими комментариями.
var a,b,s:integer; begin write('Числа = '); for a:=1 to 100 do begin b:=a mod 3; if (b = 0) then begin write(a,', '); s:=s+a; if((s > 500) and (s<520)) then break; end; end; writeln('Сумма чисел = ', s); end.
C# int min = 1000; int max = -1; int sum = 0; int [] mass = new int [12]; Random rnd = new Random(); for (int i = 0; i < mass.Length; i++) { mass[i] = rnd.Next(10, 31); Console.WriteLine(mass[i]); }
for (int i = 0; i < mass.Length; i++) { if (mass[i] > max) { max = mass[i]; } else if (mass[i] < min) { min = mass[i]; } } sum = max + min; Console.WriteLine("summ = " + sum);
1) Заводим массив в 12 элементов 2) Заполняем целыми числами от 10 до 30 3) Выводим массив 4) Ищем максимум, пробегая for'ом по массиву, сверяем в if'е max с элементом 5) Как в 4 пункте, только ищем минимум 6) После for'а считаем сумму max и min 7) Выводим сумму
сорян, на паскале не могу с массивами, не люблю их там.
var a: array[0..6] of array [0..7] of Integer; i,j: integer; Count,Pr: integer; begin Count:=0; Pr:=1; for I := 0 to 6 do begin for J := 0 to 7 do Read(a[i,j]); Readln(); end;
for I := 0 to 6 do for J := 0 to 7 do begin if a[i,j]>0 then begin Inc(Count); Pr:=Pr*a[i,j]; end; end;
if Count=0 then Pr:=0;
Writeln('Количество чисел a[i,j]>0 = ',Count); Writeln('Произведение чисел a[i,j]>0 = ',Pr); Readln(); end.
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат: