Rss
Виртуальный кабинет МАТЕМАТИКУС

5 класс

6-7 классы

8-9 классы

10-11 классы

Категории
Полезные ссылки
Материалы
Популярное
Информатикус
Информатикус. РАЗНОЕ
О Свислочи
Электронные пособия
  • Microsoft Excel: теория, практика, контроль
  • Раскраски онлайн для самых маленьких
    • Ребусы по физике
    Календарь
    «    Апрель 2025    »
    ПнВтСрЧтПтСбВс
     123456
    78910111213
    14151617181920
    21222324252627
    282930 
    Журнал "Математика"
    Математика
    Портфолио ученика
    Портфолио Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика"
    Открытый урок
    Открытый урок Учительский фестиваль педагогических идей
    Счетчик посещений
    счетчик посещений Рейтинг: Учеба
    Flag Counter

    Опросы
    Оцените работу сайта

    Интернет с пользой
    Интернет с пользой
    Знаток » Информатика » Алгоритмы: 1 уровень » Страница 2
    Дистанционное обучение

    дано число

    • Опуликовал: Синица Ю.
    • |
    • Коментариев: 0
    • |
    • Просмотров: 683
    Program3.pas [216 b] (cкачиваний: 1)
    var m,k:integer;
    begin
    read(m);
    if (m744) then writeln('не корректные данные') else begin
    k:=m div 24;
    end;
    writeln (k);

    end.
    Подробнее

    С начала месяца прошло m часов

    • Опуликовал: Журавель Е.
    • |
    • Коментариев: 0
    • |
    • Просмотров: 664
    //с начала месяца прошло 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качиваний: 1)
    var m,k:integer;
    begin
    read(m);
    if (m744) then writeln('не корректные данные') else begin
    k:=m div 24;
    end;
    writeln (k);
    end.
    Подробнее

    Найдём сумму

    Найдём сумму всех чисел от 100 до 10000, которые делятся на 20 и 3.
    Подробнее

    Найти сумму

    Найдём сумму всех чисел от 100 до 10000, которые делятся на 15 и 29Program2.pas [142 b] (cкачиваний: 1) .
    var a,S:integer;
    begin
    for a:=100 to 10000 do if (a mod 15=0)and(a mod 29=0) then begin s:=s+a;write(a,' '); end;
    writeln('S=',s);
    end.
    Подробнее

    Найти сумму

    • Опуликовал: Синица Ю.
    • |
    • Коментариев: 0
    • |
    • Просмотров: 610
    Найдём сумму всех чисел от 1 до 10000, которые делятся на 25 и 17.Program2.pas [142 b] (cкачиваний: 1)
    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.
    Подробнее

    Симулятор разбития стекла в PascalABC(net)

    Симулятор разбития стекла в PascalABC(net)
    Файл Simulyator-stekla.pas [1.81 Kb] (cкачиваний: 1)
    Подробнее

    Пример 1. Наименьшая сумма

    • Опуликовал: admin
    • |
    • Коментариев: 0
    • |
    • Просмотров: 770
    Пример 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качиваний: 2)
    Программа Скачать [326 b] (cкачиваний: 3)
    Подробнее
    1 2
    Предыдущая Следующая

    Облако Тегов

    {links}
    ГУО Физика для всех Виртуальный кабинет физики
    Copyright © 2015; ВИРТУАЛЬНЫЙ КАБИНЕТ МАТЕМАТИКИ
    Источник: ГУО "Гимназия №1 имени К.Калиновского г.Свислочь"

    АДРЕС: Гродненская обл., г.Свислочь, saassl@mail.ru.

    Designed by Elcreativo