Пятница, 28.07.2017, 21:54
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи на паскале
задачи на паскале
СерыйДата: Воскресенье, 07.11.2010, 13:29 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
1) По номеру у(у>0) некоторого года определить с - номер его столетия (учесть, что, к примеру, началом ХХ столетия был 1901, а не 1900 год).
2) Дана непустая последовательность положительных целых чисел, за которой следует 0 (это признак конца последовательности). Вычислить среднее арифметическое этих чисел.
3) Даны произвольные числа а,b,с. Еслинельзя построить треугольник с такими длинами сторон, то напечатать 0, иначе напечатать 3,2 или 1 в зависимости от того, равносторонний это треугольник, равнобедренный или какой-либо иной.
4)
Даны три действительных числа А, В, С. Определить, сколько среди них отрицательных.
 
ВахаДата: Воскресенье, 07.11.2010, 17:53 | Сообщение # 2
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
Quote (Серый)
1) По номеру у(у>0) некоторого года определить с - номер его столетия (учесть, что, к примеру, началом ХХ столетия был 1901, а не 1900 год).

uses CRT;
var
y, a: integer;
BEGIN
clrscr;
writeln ('Введите год:');
readln (y);
a:=y div 100+1;
if y mod 100 = 0 then dec (a);
WriteLn (a);
readkey;
END.


Гвардия умирает но не сдается

Сообщение отредактировал Ваха - Воскресенье, 07.11.2010, 17:55
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи на паскале
Страница 1 из 11
Поиск:

Copyright MyCorp © 2017