Задача для решения в Pascale: компьютер запрашивает число, если число положительное, то делим его на 7, в обратном случае возводим его
5-9 класс
|
в квадрат.
P.S. задачу нужно решить через тип integer или real.
program Chislo;
var x,y:real;
begin
write('Введите число: ');
readln(x);
if x>=0
then y:=x/7
else y:=sqr(x);
writeln(y);
end.
Другие вопросы из категории
сумму. 346.Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. 347.Вводится число N, а затем N чисел. Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.
Читайте также
2.Составить блок - схему кипячения чайника.
3.Составить алгоритм сбора яблок в саду.Ваша задача сводится к тому,что необходимо собрать ведро яблок с земли.
4.Составьте алгоритм на формальном языке и блок - схему для решения следущего примера : y=5x+6,если х=3
Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.
Задача 3: 1 марта в банк положили 1000 руб. Каждый месяц вклад увеличивается на 2% от имеющейся суммы.
а) за какой месяц величина процентной надбавки превысит 30 руб.?
б) через сколько месяцев размер вклада превысит 1200 руб.? Заранее спасибо)
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо
2. Определить,что распечатает следующая программа:
var a: array[1..5,1..5]of integer,i,j; integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if i=5-j+1 then a[i,j]:=0
else a [i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end; end.
3. Дан линейный массив a [l..n], содержащий целые числа. Вычислить сумму чисел делящихся одновременно на 5 и на 3 и распечатать номера таких чисел
4.Дан линейный массив a [l..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу : если элемент положительный,то заменить его на 1, а если отрицательный - возвести в квадрат