//PascalABC.NET
var
a,i:integer;
b:array [0..9] of boolean;
begin
Readln(a);
for i:=0 to 9 do b[i]:=false;
While a>0 do
begin
if b[a mod 10]=false then b[a mod 10]:=true;
a:=a div 10;
end;
for i:=0 to 9 do if not b[i] then Writeln(i);
end.
Если я правильно посчитала, то ответ 4
1. a)
б)
в)
2. Вася работает на стройке. В первый день Вася натаскал 15кг материалов, во второй - 30, в третий - 10(Столбики А1, А2, А3 соответственно). В А4 запишите сколько вася натаскал за 3 дня. В колонке B запишите(через формулы) отношение за соответствующий день к общему количеству в процентах.
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.