Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«    Сентябрь 2022    »
ПнВтСрЧтПтСбВс
 1234
567891011
12131415161718
19202122232425
2627282930 
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

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

Интернет с пользой
Интернет с пользой
Пример. Найти сумму чисел от 1 до 100, которые делятся на 3 и на 5.
var s, i:integer;
begin
for i:=1 to 100 do begin if (i mod 3=0) and (i mod 5=0) then begin write (' ',i); s:=s+i;end;end;
writeln;
writeln('s=',s);
end.
Program6.pas [159 b] (cкачиваний: 0)
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 378
Автоматизация создания и обработки тестов в MS Excel
http://www.rosinka.vrn.ru/dinex/tests.htm
Архив файлов для создания тестов mtest.zip [1.23 Mb] (cкачиваний: 1)
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 503
Общая инструкция Скачать [213.3 Kb] (cкачиваний: 3)
Инструкция к тесту Скачать [324 Kb] (cкачиваний: 5)
Шаблон теста в MS PowerPoint Скачать [584.5 Kb] (cкачиваний: 7)
Конструктор тестов в MS PowerPoint
http://www.rosinka.vrn.ru/pp/
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 588
Ребусы о СвислочиРебусы о Свислочи
Proletarskaya.docx [892.1 Kb] (cкачиваний: 3)
  • Дата: 20-12-2019, 14:23
  • Категория: Svisloch
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 408
Ребус 39
Ответ: множество
  • Дата: 17-12-2019, 23:34
  • Категория: Ребусы
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 352
Ребус 37 Ответ: высота
  • Дата: 13-12-2019, 12:33
  • Категория: Ребусы
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 368

  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 423
Пример 1. Даны три числа a,b,c. Находятся суммы всех возможных пар этих чисел: a+b, a+c, b+c. Вывести наименьшую получившуюся сумму.
var a,b,c,S1,S2,S3:integer;
f1:text;
begin
assign(f1,'2.txt');
reset (f1); read(f1,a); read(f1,b); read(f1,c);
S1:=a*a+b*b; S2:=a*a+c*c; S3:=b*b+c*c;
if (s1 if (S2 if (S3 close (f1);
end.
Входной файл Скачать [8 b] (cкачиваний: 0)
Программа Скачать [326 b] (cкачиваний: 1)
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 344
Ребус 34
Ответ: путь
  • Дата: 27-11-2019, 01:48
  • Категория: Ребусы
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 399
Ребус 33
Ответ: скорость
  • Дата: 27-11-2019, 01:45
  • Категория: Ребусы

Облако Тегов

{links}