program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Массив содержит информацию о возрасте 20 участников соревнований. Составьте программу, определяющую возраст самого молодого участника.
#include <iostream>
using namespace std;
void solve(){
int ans = 1e9 + 7, cur, n = 20;
while(n--){
cin >> cur;
ans = min(ans,cur);
}
}
signed main() {
solve();
}