Попорпо
10.07.2020 11:37

число десятков
дано целое неотрицательное число n, определите число десятков в нем (предпоследнюю цифру числа). если предпоследней цифры нет, то можно считать, что число десятков равно нулю.
формат входных данных
на вход дается целое положительное число n (0 ≤ n ≤ 1).
формат выходных данных
выведите одно целое число - ответ на .
sample input:
73
sample output:
7
сумма цифр трехзначного числа
дано целое трехзначное число. найдите сумму его цифр.
формат входных данных
на вход дается число от 100 до 999.
формат выходных данных
выведите одно целое число - ответ на .
sample input:
476
sample output:
17
следующее четное
на вход дается натуральное число n. выведите следующее за ним четное число
формат входных данных
на вход дается целое положительное число n, не превышающее 1.
формат выходных данных
выведите одно целое число - ответ на .
sample input 1:
7
sample output 1:
8
sample input 2:
8
sample output 2:
10
парты
в некоторой школе решили набрать три новых класса и оборудовать кабинеты для них новыми партами. за каждой партой может сидеть два учащихся. известно количество учащихся в каждом из трех классов. выведите наименьшее число парт, которое нужно приобрести для них. каждый класс сидит в своем кабинете.
формат входных данных
программа получает на вход три целых неотрицательных числа: количество учащихся в каждом из трех классов (числа не превышают 1000).

формат выходных данных
выведите одно целое число - ответ на .
sample input 1:
20
21
22
sample output 1:
32
sample input 2:
16
18
20
sample output 2:
27
покупка пирожков
пирожок в столовой стоит a рублей и b копеек. определите, сколько рублей и копеек нужно заплатить за n пирожков.

формат входных данных
программа получает на вход три числа: a, b, n - целые, положительные, не превышают 1.
формат выходных данных
программа должна вывести два числа через пробел: стоимость покупки в рублях и копейках.

sample input 1:
10
15
2
sample output 1:
20 30
sample input 2:
2
50
4
sample output 2:
10 0

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Данил20010001
15.09.2022 09:29
Информатика - наука об информации и автоматизации информационных процессов.
Информация - это новости, новые факты, знания про объекты и явления окружающей среды.
Компьютер - устройство или система выполнять заданную чётко определённую изменяемую последовательность операций.
Файл - это упорядоченная совокупность данных на внешнем носителе которая имеет имя которое операционная система обрабатывает как единое целое.  
Текстовой редактор - это самостоятельная компьютерная программа или компонент программного комплекса.
Графический редактор - это программа позволяющая создавать, просматривать, обрабатывать и редактировать цифровые изображения на компьютере.
0,0(0 оценок)
Ответ:
valeriyait
16.12.2020 20:14
Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота