Помогите написать программу по информатике пожалуйста! Посчитать сумму к выдаче если сперва высчитать пенсионные 10 процентов а с остального
5-9 класс
|
подоходные 7 процентов.
var x: real;
begin
readln(x);
x:= x - (x*0,1);
x:= x - (x*0.07);
writeln(x);
readln;
end.
Другие вопросы из категории
процедуру printS(x,y,z), печатающую площадь треугольника со сторонами x,y,z, если такой треугольник существует.)
Читайте также
Найти средний рост класса. Написать программу. 10 человек
Самый наименьший рост 162 самый высокий 170
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные целые значения.Напишите программу,которая находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов.
Известно, что коды прописных (заглавных) букв латинского алфавита следуют в таблице непрерывно друг за другом. Коды строчных букв латиницы также следуют непрерывно друг за другом на расстоянии 32 символов от прописных (ниже по таблице) .
Если ord('A') = 65, то ord('A')+32 = 97, и это код строчной буквы «а» , то есть chr(ord('A')+32) = 'а'.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.