Главная Добро пожаловать на сайт! Регистрация

Вход

Приветствую Вас Гость | RSSСуббота, 17.11.2018, 05:36
Меню сайта

Категории раздела
8 класс [11]
Программа И.Г.Семакина
9 класс [9]
Программа И.Г.Семакина
10 класс [16]
Программа И.Г.Семакина
11 класс [7]
Программа И.Г.Семакина
Тесты для всех [8]
Тесты для самостоятельного выполнения

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Изучаем информатику
Главная » Файлы » 10 класс

Цикл "Пока"
11.12.2010, 06:31
1 вариант
 Дано натуральное число:
    1) найти сумму цифр этого числа;
    2) верно ли, что первая и вторая цифры одинаковы;
    3) Найти первую и вторую цифры.
 
2 вариант
   Дано натуральное число:
   1) найти произведение цифр числа;
   2) верно ли, что в данном числе нет цифры А;
   3) количество цифр этого числа
 
3 вариант
Дано натуральное число:
   1) найти количество четных цифр в нем;
   2) верно ли, что данное число заканчиватся цифрой А;
   3) сумму четных цифр в нем.
 
4 вариант
Дано натуральное число
    1) найти  сумму первой и третьей цифр;
    2) верно ли, что первая цифра четная;
    3) сколько раз встречается цифра А в данном числе.
 
Пример:
Дано натуральное число. Найти первую и последнюю цифры этого числа.
 
program kr;
uses crt;
var d,k,k1,k2:integer;
 
begin
clrscrl;
writeln('d=');readln(d);
k:=1;
while d>0 do begin
if k:=1 then k1:=d mod 10;
if d div 10>0 then k2:=d div 10;
d:=d div 10;
k:=k+1;
end;
writeln(' 1-я справа ',k1);
writeln(' Последняя ',k2);
 
writeln(
Категория: 10 класс | Добавил: LAS
Просмотров: 2396 | Загрузок: 0 | Комментарии: 4 | Рейтинг: 1.0/3
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск

Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Copyright MyCorp © 2018Бесплатный конструктор сайтов - uCoz