С клавиатуры вводятся 3 числа. сколько среди них положительных ? Нужно решать либо с if или с case
5-9 класс
|
program q;
var mult, a, b, c:integer;
begin
write('введите 3 числа');
read(a,b,c);
mult:=0;
if a>0 then
mult:=mult+1
else mult:=mult;
end;
if b>0 then
mult:=mult+1
else mult:=mult;
if c>0 then
mult"=mult+1
else mult:=mult;
end;
writeln('положительных ' ,mult, ' чисел');
end.
Другие вопросы из категории
расширение txt
4) файл – это информация, хранящаяся во внешней памяти как единое целое и обозначенная именем
5) всего существует 256 различных цепочек из 8 нулей и единиц
6) двоичный код
положительных. Используя вспомогательный файл h, переписать элементы файла f в файл g так, чтобы в файле g:
- не было двух соседних чисел с одним знаком,
- сначала шли положительные, потом отрицательные числа.
10-й ситеме счисления
Дайте пожалуйста решение
Читайте также
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
отрицательных, и не равных нуля. Задача решается через Turbo Pascal