<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.
Сами команды:
Опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания
Ответ:
program array3;
const
L = 1;
H = 10;
var
n, i, s: Integer;
A1, A2, A3: array [L..H] of Integer;
begin
Randomize;
for i := L to H do begin
A1 [i] := Random (10);
A2 [i] := Random (10);
A3 [i] := Random (10);
end;
WriteLn ('Первый массив:');
for i := L to H do
Write (A1 [i], ' ');
WriteLn;
WriteLn ('Второй массив:');
for i := L to H do
Write (A2 [i], ' ');
for i := L to H do
if (i < 2) or (i > 7) then
A3 [i] := A1 [i]
else
A3 [i] := A2 [i];
WriteLn;
WriteLn ('Результирующий массив:');
for i := L to H do
Write (A3 [i], ' ');
WriteLn;
ReadLn;
end.
Объяснение:
const
L = 1;
H = 10;
устанавливаются размерности для массивов, здесь можно их изменить