Пользователь вводит в числа последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
var a, x : integer;
begin
a:=1;
while (a <= 3) do
begin
writeln('vvedite celoe chislo');
readln(x); // вводим число
if ( x < 0) and (( x mod 2) = -1) then
begin
a := a + 1;
writeln(x);
end;
end;
readln();
end.
<?php
/* Задача номер 1. Вывести на экран N случайных чисел (каждое с новой строки) из диапазона [-21, 35]
ПРИМЕЧАНИЕ: подразумевается, что вы должны организовать цикл, который выполнится N раз и при этом в каждом своём витке выведет на экран случайное число.*/
$r = 0;
$i = 1;
$N = 5;
function randomcisla(&$a)
{
$a = rand(-21, 35);
}
while ($i <= $N)
{
randomcisla($r);
echo $r, " ";
$i++;
}
?>
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
11. Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)
program Project12;
var a, i, b, c, d: integer;
begin
a:=15;
i:=(a div 15);
b:=(a div 3);
c:=(a mod 7);
d:=(a mod 10);
writeln(i, ' ', b);
write(c, ' ', d);
readln();
end.
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
Напишите процедуру, которая выводит на экран сумму трёх целых чисел.
procedure sum(x, y, h: integer);
var result : integer;
begin
result := (x + y + h);
write(result);
end;
begin
write('Результат процедуры: ');
sum(1, 2, 3);
readln();
end.