Необходимо составить программу в паскале которая: вычислить сумму квадратов первых 15 натуральных чисел, каждое из которых при делении на 5 дает в остатке 3 .
Var i,k,s:integer; begin while k<15 do begin i:=i+1; if i mod 5=3 then begin if k<14 then write (i,'^2 + ') else write (i,'^2 = '); s:=s+sqr(i); k:=k+1; end; end; writeln (s); end.
#include <iostream> using namespace std; int main() { for(int i = 10; i < 100; i++) { if(i/10 == 2*(i%10)) cout << i << " "; } return 0; } Пример на С++ Но если надо на другом языке, то суть такова: 1)запускаешь цикл от 10 до 99(все двузначные числа) со счетчиком i например 2)внутри условие если i деленный нацело на 10(1 цифра этого числа )равен удвоенному значению остатка от деления i на 10 ( последняя цифра числа в 2 раза больше 1 должна быть) то на экран выводится это число i
#include <iostream> using namespace std; int main() { for(int i = 10; i < 100; i++) { if(i/10 == 2*(i%10)) cout << i << " "; } return 0; } Пример на С++ Но если надо на другом языке, то суть такова: 1)запускаешь цикл от 10 до 99(все двузначные числа) со счетчиком i например 2)внутри условие если i деленный нацело на 10(1 цифра этого числа )равен удвоенному значению остатка от деления i на 10 ( последняя цифра числа в 2 раза больше 1 должна быть) то на экран выводится это число i
begin
while k<15 do
begin
i:=i+1;
if i mod 5=3 then
begin
if k<14 then write (i,'^2 + ')
else write (i,'^2 = ');
s:=s+sqr(i);
k:=k+1;
end;
end;
writeln (s);
end.