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*******
var m, n, k, r, sum : integer;
begin
write('Введите цену яблок: '); read(r);
write('Введите цену апельсинов: '); read(k);
write('Введите кг яблок: '); read(m);
write('Введите кг апельсинов: '); read(n);
sum := r*m + k*n;
write('Общая стоимость покупки: ',sum);
end.
<span>xv = int(input("Введит минути: "))
sec = int(input("Введит секунди: "))
if xv >0 or sec > 0 <span>:
</span> print("Секунди в минутах ",xv ,'=', xv*60,'секунд!')
print("Загальний час в секундах = ",xv*60+sec,'секунд!')
else<span>:
</span> print("Час не може бути менше 0!!!")</span>