1 задача: var a:integer; begin writeln('Введите число'); read(a); if (a mod 343 = 0) then writeln('Число ',a,' кратно числу 343.') else writeln('Число ',a,' не кратно числу 343.'); end.
2 задача: var a,s,d,e:integer; begin writeln('Введите трехзначное число:'); read(a); s:=a div 100; d:=(a div 10) mod 10; e:=a mod 10; if (s=0)or(d=0)or(e=0) then writeln('Число ',a,' содержит 0.') else writeln('Число ',a,' не содержит 0.'); end.
var a:integer;
begin
writeln('Введите число');
read(a);
if (a mod 343 = 0) then writeln('Число ',a,' кратно числу 343.')
else writeln('Число ',a,' не кратно числу 343.');
end.
2 задача:
var a,s,d,e:integer;
begin
writeln('Введите трехзначное число:');
read(a);
s:=a div 100;
d:=(a div 10) mod 10;
e:=a mod 10;
if (s=0)or(d=0)or(e=0) then writeln('Число ',a,' содержит 0.')
else writeln('Число ',a,' не содержит 0.');
end.