Rss
Виртуальный кабинет МАТЕМАТИКУС
Календарь
«    Январь 2020    »
ПнВтСрЧтПтСбВс
 12345
6789101112
13141516171819
20212223242526
2728293031 
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

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

Интернет с пользой
Интернет с пользой

Book_ABC

  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 24
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 17
Program7.pas [385 b] (cкачиваний: 0)
Program7.pas [390 b] (cкачиваний: 0)
//с начала года прошло k часов. Определить, какая сейчас неделя
var n,k:integer;
begin
read(n,k);
if (k 8784) then writeln('не корректные данные') else begin
k:= k div 168;
writeln(k);
end;
end.
Program6.pas [212 b] (cкачиваний: 0)
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 17
Program3.pas [226 b] (cкачиваний: 0)
//с начала месяца прошло m часов. Определить, какое сейчас число
var m,k:integer;
begin
read(m);
if (m 744) then writeln('не корректные данные') else begin
k:= m div 24;
writeln(k); end;
end.
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 18
Program3.pas [216 b] (cкачиваний: 0)
var m,k:integer;
begin
read(m);
if (m744) then writeln('не корректные данные') else begin
k:=m div 24;
end;
writeln (k);

end.
//с начала месяца прошло m часов. Определить, какое сейчас число
var m,k:integer;
begin
read(m);
if (m 744) then writeln('не корректные данные') else begin
k:= m div 24;
writeln(k); end;
end.
Program3.pas [211 b] (cкачиваний: 0)
var m,k:integer;
begin
read(m);
if (m744) then writeln('не корректные данные') else begin
k:=m div 24;
end;
writeln (k);
end.

Облако Тегов

{links}