var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.
Скачать содержимое,прочесть, удалить сообщение, отправит в спам
char months[][4]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
unsigned int num;
scanf("%u",&num);
if(num<=12) printf("%s",months[num-1]);
else printf("invalid number");
Program idinah;
var a, b: real;
begin
write('a, b = ');
readln(a,b);
writeln('Среднее арифметическое = ',(a+b)/2);
end.