Консультация № 197093
14.11.2019, 11:06
0.00 руб.
0 2 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Вычислить сумму квадратов чисел, не меньших заданного U и
стоящих на местах, кратных 4; подсчитать также количество чисел,
равных W.Pascal

Обсуждение

давно
Старший Модератор
31795
6196
17.11.2019, 01:22
общий
Адресаты:
Уточните задание. У меня хрустальный шар сломался.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
22.11.2019, 14:34
общий
это ответ
Здравствуйте, kondrat322!

Смотрите код:
[code lang=pascal]const
n=20;
var
a:array[1..n]of integer;
b,c,d,e:integer;
begin
for b:=1 to n do
begin
a[b]:=random(50);
writeln(a[b]);
end;
writeln;
write('enter U:=');readln(c);
d:=0;
e:=0;
for b:=1 to n do
if((b mod 4) =0)and(c<=a[b])then
begin
d:=d+a[b]*a[b];
inc(e);
end;
writeln('summa:=',d,' count:=',e);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа