Клавиатурный тренажёр и программа "Руки солистов" а) является элементом множества клавиатурного тренажёра б)входит в состав клавиатурного тренажёра в)является разновидностью клавиатурного тренажёра
Const n=5;m=6; var a:array[1..n,1..m]of integer; b:array[1..m]of longint; k,i,j:integer; p:longint; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(20)-10; write(a[i,j]:4); end; end; writeln;
for j:=1 to m do begin p:=1; for i:=1 to n do if (a[i,j]mod 2=0)and(a[i,j]>0) then p:=p*a[i,j]; if p<>1 then begin k:=k+1; b[k]:=p; end; end; for i:=1 to k do write(b[i]:8); end.
Это решение при задании вручную этих чисел: Program sadadasf; var i,k,l: integer; begin Writeln('Введите первое целое двухзначное число:'); readln(i); Writeln('Введите второе целое двухзначное число:'); readln(k); If k>i then begin k:=k*k; i:=i*2; end; If i>k then begin i:=i*i; k:=k*2; end; Writeln('Первое число:', i); Writeln('Второе число:', k); end.
Это решение при задании чисел в самой программе: Program sadadasf; var i,k,l: integer; begin i:=5; k:=3; If k>i then begin k:=k*k; i:=i*2; end; If i>k then begin i:=i*i; k:=k*2; end; Writeln('Первое число:', i); Writeln('Второе число:', k); end.
а) Является элементом множества клавиатурного тренажёра