Var
M1, M2, M3 :set of 0..9;
i:integer;
begin
M1 := [1, 2, 3];
M2 := [1, 4, 2, 5];
M3 := M1 * M2;
write('Результат: ');
for i:=0 to 9 do
if i in M3 then write(i)
else write('*');
writeln
end.
Тестовое решение:
Результат: *12*******
Описываешь 2 переменные,
указываешь команду ввода этих 2-ух переменных;
с помощью команды вывода информации, выводишь произведение этих чисел на экран
пример в паскале
program umn;
var
a,b:real;
begin
readln(a,b);
write(a*b);
end.
пример в c++
#include iostream
using namespace std;
int main()
{
setloacale(0,"");
float a,b;
cin >> a >> b; cout << endl;
cout << a*b;
system("pause");
return 0;
}
I: integer;
a: array [0..100] of integer;
b: array [0..100] of integer;
for i:=0 to 100 do begin
if A[i]<0 them b[i]:=0
else b[i]:=1;
end;