Енотик Пётр считает, сколько места на жёстком диске ему понадобится для школьных проектов в новом учебном году. Пётр вывел, что 1 страница текстового документа в среднем занимает у него 150 КБ памяти, а 1 слайд презентации — 300 КБ. Также Пётр хочет иметь запас в 10 МБ. Учебный год Петра длится 36 недель. Сколько мегабайт памяти понадобится енотику, если он будет делать по реферату два раза в неделю на 9 страниц, а также по одной презентации в неделю на 8 слайдов? ответ округлите до целого числа в бОльшую сторону. Задача по олимпиаде ответьте
Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3.
Поэтому алгоритм должен быть вроде :
1.создаем переменную для хранения суммы
2.3 раза читаем число, прибавляем его к общей сумме.
3.Выводим сумму / 3
Вот и сам код, думаю на Паскале сойдет:
begin
var mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3
for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbegin
var num: integer; //Создаем переменную для хранения текущего числа
readln(num); //Считываем его
mid := mid + num; //Присваиваем mid значение mid + num (текущее число)
end;
writeln(mid/3); //Выводим среднее
end.
Примеры:
Ввод: 1,2,3
Вывод: 3
Ведь (1 + 2 + 3) / 3 = 3
Ввод: 5, 10, 20
Вывод: 11.(6)
Ведь (5 + 10 + 20) / 3 = 11.(6)
Ввод: 5, 5, 5
Вывод: 5
и так далее...
|Если не сложно нажми кнопку " " ;)|
2. Если имелось ввиду, что вводится символ и надо выяснить является ли введенный символ цифрой, то можно применить функцию StrToInt от введенного символа, если в результате получится цифра, то вводили символ - цифру.
Для первого варианта можно попробовать такое решение:
Var
a :integer;
Begin
writeln('Введите цифру ');
readln(a);
case a of
0 : writeln ('ноль');
1 : writeln ('один');
2 : writeln ('два');
3 : writeln ('три');
4 : writeln ('четыре');
5 : writeln ('пять');
6 : writeln ('шесть');
7 : writeln ('семь');
8 : writeln ('восемь');
9 : writeln ('девять')
else writeln ('Это число не цифра');
end;
end.