Напишите программы, для Паскаля ?

Eralim 22 окт. 2021 г., 13:45:50

1. var x : integer ;

begin

readln(x) ;

if x>0 then writeln(x, ' - положительное')

else if x0 then k : = k + 1 ;

if y>0 then k : = k + 1 ;

if z>0 then k : = k + 1 ;

writeln('количество положительных чисел = ', k) ;

end.

Пример : - 1258467

количество положительных чисел = 2

3.

Var x : integer ;

begin

readln(x) ;

if x mod 2 = 0 then writeln(x, ' - чётное')

else writeln(x, ' - нечётное') ;

end.

Пример :

125

125 - нечётное.

Angelina12072003 22 окт. 2021 г., 13:45:53

Program task1 ;

var n : real ;

begin :

read(n) ;

if n > 0 then

writeln('Положительное') ;

if n < 0 then

write('Отрицательное') ;

end.

Programm task2 ;

var a, b, c, positives : integer ;

begin :

if a > 0 then

positives : = positives + 1 ;

if b > 0 then

positives : = positives + 1 ;

if c > 0 then

positives : = positives + 1 ;

writeln('Положительных : ', positives) ;

end.

Program task3 ;

var n : integer ;

begin :

read(n) ;

if (n mod 2) > 0 then

writeln('Не чётное') ;

else

writeln('Чётное') ;

end.

Anytka4231 1 янв. 2021 г., 17:01:53 | 5 - 9 классы

Дано число а?

Дано число а.

Проверить, является ли оно натуральным числом.

Знаю, что натуральные числа, это те числа, которые положительные и целые, предела не имеют.

Как в Паскале написать, что данное число не может быть дробным?

Никак не доходит.

Знаток115 11 июн. 2021 г., 15:05:24 | 5 - 9 классы

. Даны три целых числа?

. Даны три целых числа.

Найти количество положительных чисел в исходном наборе.

SlavaWVW216 22 янв. 2021 г., 20:26:03 | 5 - 9 классы

1. Дано целое число?

1. Дано целое число.

Составить программу, определяющую, какое число было введено : положительное, отрицательное или ноль 2.

Вводятся два числа.

Сравнить эти числа.

Gold35 3 апр. 2021 г., 15:05:50 | 10 - 11 классы

С клавиатуры вводятся 3 целых числа?

С клавиатуры вводятся 3 целых числа.

Определить количество положительных чисел в этом наборе.

XkostyanX 21 апр. 2021 г., 02:39:20 | 5 - 9 классы

Напишите программу для Паскаля?

Напишите программу для Паскаля.

Возвести чётное число в квадрат, а нечётное в куб.

Polinagontovaya 16 февр. 2021 г., 11:05:36 | 10 - 11 классы

(Паскаль) Составить программа для решения задачи : даны четыре вещественных числа?

(Паскаль) Составить программа для решения задачи : даны четыре вещественных числа.

Определить сколько из них отрицательных.

Aigan198336 24 апр. 2021 г., 05:01:05 | 5 - 9 классы

Напишите программу которая в последовательности целых чисел определяет минимальное положительное число кратное 5 программа получает на вход количество чисел в последовательности, а затем сами числа?

Напишите программу которая в последовательности целых чисел определяет минимальное положительное число кратное 5 программа получает на вход количество чисел в последовательности, а затем сами числа.

Последовательности всегда имеется положительное число делящееся на 5 количество чисел не превышает 1000 введённые числа мне абсолютной величине не превышает 30 000 программа должна вывести одно число минимальное положительное число, кратное 5 .

Пример работы программы входные данные 4 - 5 10 6 25 выходные данные 10.

Юсёночик 31 дек. 2021 г., 17:54:13 | 5 - 9 классы

Даны три положительных числа?

Даны три положительных числа.

Определить наибольшее из них(построить блок - схему).

Ippattova576 2 сент. 2021 г., 15:30:24 | 5 - 9 классы

Даны три положительных числа?

Даны три положительных числа.

Определить наибольшее из

них.

(Построить блок - схему).

Svietlananiekr1 25 июл. 2021 г., 17:55:53 | 5 - 9 классы

Дано целое четырёхзначное число?

Дано целое четырёхзначное число.

Определить количество сотен, десятков и единиц.

Помогите, пожалуйста!

Программа на языке паскаль.