Сколько натуральных чисел от 1 до 1000 включительно делятся на 3 или на 5, или на 7?

#! /usr/bin/env python # encoding: utf-8 s = {3: 0, 5: 0, 7: 0} for i in range(1, 1001):       for j in (3,5,7):             if i%j==0:                   s[j] += 1                   break print "количество кратных чисел." print "первая цифра - делитель," print "вторая - количество кратных" print "ей чисел" print s

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.