Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.
Программа в приложении................................................
Берешь все уроки, делишь на три
Прослезились
#include <iostream>
using namespace std;
int main() {
int s = 0, i = 20;
while(i < 100) {
s+=i;
i++;
}
cout << s << endl;
}
Var i,s:integer;
begin
i:=20;
while i<100 do
begin
s:=s+i;
i:=i+1
end;
writeln('Ответ: ',s)
end.
var i,s:integer;
begin
i:=20;
repeat
s:=s+i;
i:=i+1;
until i>99;
writeln('Ответ: ',s)
end.