Объяснение:
Напишите программу, которая в последовательности целых чисел определяет, каких чисел больше - чётных или оканчивающихся на 3 - и на сколько. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести сообщение и одно число: каких чисел больше - чётных или оканчивающихся на 3 - на сколько, а если количество чисел одинаково, то вывести это количество.
Пример работы программы:
Входные данные:
182
13
12
8
0
Выходные данные
Чётных больше на 2 числа
0
pascal
Объяснение:
program triangle;
var
a, b, c: real;
p, s: real;
begin
Write('Введите стороны треугольника >> ');
ReadLn(a, b, c);
if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then
begin
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
WriteLn('Полупериметр треугольника равен ',p);
WriteLn('Площадь треугольника равна ',s);
end
else
WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')
end.
Поделитесь своими знаниями, ответьте на вопрос:
Аня сочиняет сказки. они, набранные на компьютере заняли 120 страниц, на каждой странице - 30 строк, а в каждой строке - по 50 символов. сколько кбайт информации занимают анины сказки в компьютере?