Program Massiv;
Uses Crt;
var i,j:integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(101)-50;
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:3);
end;
writeln;
end;
readkey;
end.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('Количество пятерок в числе равно ',
ReadInteger('n=').ToString.Where(c->c='5').Count)
end.
<u><em>Тестовое решение:</em></u>
n= 3456453
Количество пятерок в числе равно 2
<span>Набрать кувшин 8 л. Из него отлить в кувшин 3 л. Затем вылить эти 3 л. Затем опять отлить из 8литрового в кувшин 3 л. Оставшаяся вода в 8литровом кувшине =2 л. Переливаешь в 3литровый. Потом набираешь полный 8литровый. Из него доливаешь воды в 3литровый, т.е. 1 л. Остается 7 л.</span>
I=1800 байт u=14400 t=? и решаешь в два действия есть 2 варианта 1-14400 : 8= 1800 байт/с или 2- 1800 • 8 =14400 и второе смотря как решал 1800 : 1800 =1 секунда ну вроде так