#include <iostream>
using namespace std;
int main(){
int a,b,c,d,o=0;
cin>>a>>b>>c>>d;
for (int i=10000; i<=99999;i++)
if (i % a ==b && i % c == d)
{
cout<<i<<' ';
o=1;
}
if (o==0)
cout<<-1;
}
Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
Ответ:
Программу?
uses crt;
var fiz,math,inf:integerl
begin
*
readln(fiz,math,inf);
if (fiz = 4) and (math = 4) and (inf = 4) or (fiz = 5) and (math = 5) and (inf = 5) then write('Ученик получит стипендию');
end.
* по желанию, можешь добавить на место звездочки write('Физика, Математика, Информатика сданы на: ');