Pascal урок 11 задача 9

Пользователь вводит в числа последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

Pascal урок 11 задача 8

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

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.  

Решение задачи 20 из главы 13.1

Решение задачи 20 из главы 13.1

20. Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные

Решенные задачи по PHP

Задача номер 1

<?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++;
    }
?>

Задача номер 2

<?php 

Решение задачи №20 из главы 13.1

Решение задачи №20 из главы 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:

Решение задачи 12 из главы 11

Решение задачи 12 из главы 11

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.

Задание 5 Урок 14

Задание 5 Урок 14

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

Задание 4 Урок 14

Задание 4 Урок 14

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -
-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

Задание 3 Урок 14

Задание 3 Урок 14

Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).

Задание 2 Урок 14

Задание 2 Урок 14

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

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.   

Pages

Subscribe to fkn+antitotal RSS