1213 312 1519 1212 ,,,,,,,,,,,,
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
<u>Результат</u>
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
Буква "ш" + нарисованная бутылка "кола"
или слово
шоколад
а под ним цифры 2 и 7 зачеркнутые
Ответ:
var n,i,a,s,k:Integer;
begin
Write('Введите количество чисел ');
Readln(n);
for i:=1 to n do
begin
Write('Введите целое число ');
Readln(a);
if a mod 2 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
Write('Среднее арифметическое чётных чисел равно ',s/k)
end.
Объяснение:
n - количество целых чисел, которые будут вводиться
i - счётчик цикла
a - вводимое целое число
s - сумма чётных чисел
k - количество чётных чисел