Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«     2024    »
 123
45678910
11121314151617
18192021222324
25262728293031
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

Опросы
Оцените работу сайта
Лучший
Неплохой
Устраивает ... но ...
Встречал и получше
Совсем не понравился

Интернет с пользой
Интернет с пользой
Знаток » Синица Ю.
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 530
Program7.pas [385 b] ( 1)
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 527
Program3.pas [226 b] ( 1)
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 522
Program3.pas [216 b] ( 0)
var m,k:integer;
begin
read(m);
if (m744) then writeln('не корректные данные') else begin
k:=m div 24;
end;
writeln (k);

end.
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 486
Найдём сумму всех чисел от 1 до 10000, которые делятся на 25 и 17.Program2.pas [142 b] ( 0)
var i,s:integer;
begin
for i:=1 to 10000 do if (i mod 25=0) and (i mod 17=0)then begin s:=s+i;write (i,' '); end;
writeln('s=',s);
end.

Облако Тегов

{links}