Напишите программу на языке Паскаль для вычисления суммы чисел, кратных 3 из промежутка от 1 до k (k вводится с клавиатуры

269

427

Посмотреть ответы 2

Ответы на вопрос:

natalyater1

Информатика

4,7(28 оценок)

var k, sum, i:Integer;

begin

sum:=0;

readln(k);

for i := 1 to k do

begin

if (i mod 3 = 0)then

sum:=sum+i;

end;

writeln(sum);

end.

Basrad

Информатика

4,5(71 оценок)

Uses crt; var i,b,x,q: integer; c: real; var a: array [1..3] of integer; begin clrscr; writeln('введите числа'); for i: =1 to 3 do read(a[i]); q: =1; for i: =1 to 3 do begin if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then x: =x+1; if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then b: =b+a[i]; if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then q: =q*a[i]; c: =b/x; end; writeln('среднее арифметическое = ',c); writeln('произведение = ',q); end.