Отправляет email-рассылки с помощью сервиса Sendsay

Паскаль для школьников

Подписаться Бесплатная новостная рассылка Подписчиков 27 RSS
←   Октябрь 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 11-06-2003

Автор
$ereg@

Статистика

27 подписчиков
0 за неделю
←   Все выпуски   →

Паскаль для школьников


Информационный Канал Subscribe.Ru
Выпуск No 5

 

Выпуск No 5

Автор рассылки $ereg@

www.karsun.by.ru 

 

Снова здравствуй. Выпуск рассылки снова возобновляется. На сайте в скором времени появится информация о массивах.  Предлагаю вам решить  задачку с массивом.

 

 Введите с клавиатуры в массив х пять значений, выведите на экран значение корней и квадратов каждого элемента.

 

 Как и обещал публикую решение задач из предыдущего номера.

 

1.  Среди четырехзначных чисел выбрать те, у которых все четыре цифры  

     различны.

 

program razn;

var a1, a2, a3, a4: byte;

begin

 for a1: =1 to 9 do

  for a2:= 0 to 9 do

   for a3:= 0 to 9 do

    for a4:= 0 to 9 do

      if (a1<>a2) and (a1<>a3) and (a1<>a4) and (a2<>a3) and (a2<>a4) and (a3<>a4) then 

        write(a1,a2,a3,a4,'   ');

 readln;

end.

 

2.Найти сумму цифр целого числа больших 5.

program sum;

var sum,n,m: integer;

begin

  write(' Введите натуральное число ');

  readln(n);

  sum:= 0;

    while  n <> 0  do

       begin

        m:= n mod 10;

        if m>5 then sum:=sum + m;

        n:= n div 10;

      end;

  writeln('Сумма цифр больших 5 равна ', sum);

  readln;

end.

 

Вот и все.

P. S. Если вы с чем-то не согласны или у вас есть интересные задачи, то пишите буду очень рад.
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное