№1
#include <iostream>
using namespace std;
int main(){
int a, b;
cin>>a>>b;
for (int i=a; i<=b; ++i) if (i%3==0) cout<<i<<" ";
}
№2
#include <iostream>
using namespace std;
int main(){
int a, b, s=0;
cin>>a>>b;
for (int i=a; i<=b; ++i) if (i%2==1) s+=i;
cout<<s;
}
№3
#include <iostream>
using namespace std;
int main(){
for (int i=10; i<=20; ++i) cout<<i*i<<" ";
}
function k15(a:integer):boolean;
begin
k15:=a mod 15 = 0;
end;
var i: integer;
begin
for i:=200 to 300 do
if k15(i) then write(i,' ');
end.
Результат:
210 225 240 255 270 285 300
program raf105;
var
a,b:array[1..5] of integer;
c:array[1..10] of integer;
i:integer;
begin
writeln('Заполните первый массив:');
for i:=1 to 5 do
readln(a[i]);
writeln('Заполните второй массив:');
for i:=1 to 5 do
readln(b[i]);
i:=0;
write('Третий массив: ');
while i < 10 do
begin
i:= i+2;
c[i-1]:= a[i div 2];
c[i]:= b[i div 2];
write(c[i-1],' ',c[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Струйный, лазерный,матричный,цепной,барабанный
Пословицы:
1. Горе - как море, берегов не видно.
ключ = 4
Жтфи - одо ртфи, еифижтё си ёмзст.
2. У худой птицы худой и голос.
ключ = -2
С усвмз нржфщ усвмз ж бмймп.
3. Был у тёщи, да рад утёкши.
ключ = 3
Дюо ц хиьл, жв увж цхиныл.
Поговорки:
1. Что в лоб, что по лбу.
ключ = 10
Бьш л хшк, бьш щш хкэ.
2. Шила в мешке не утаишь.
ключ = -5
Уджы э зауёа иа оныдух.