Var n,I,c:integer;
begin
c:=0;
read(n);
for i:=1 to n do
if (i mod 2 != 0) and (i mod 3 != 0) and (i mod 5 != 0) then c:=c+1;
write(c);
end.
проверь в компиляторе, я Паскаль плохо помню, не уверен
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
12.7см * 2.5 = 31,75 дюйма
31,75*600 * 31,75*1200 = 725805000 пикселей
725805000 * 8 / 8 = 725805000 байт
В поисковике забей открой с 1 по 3 сайт
program raf105;
var x,y:integer;
begin
writeln('Введите 2 числа');
readln(x,y);
if y<>0
then writeln(x,'/',y,'=',x/y)
else writeln('На ноль делить нельзя');
end.
<em>Написано на языке PascalABC.NET</em>