Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Найдите первую цифру числа. Например, для числа 7658 это цифра 7. Написать блок-схему и программу.

5-9 класс

Pascal ABC
Напишите пожалуйста полную программу.
Заранее спасибо)

AnnaHada 18 дек. 2013 г., 10:24:45 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
123xsw
18 дек. 2013 г., 11:14:15 (10 лет назад)

Программа(только для положительных чисел!):

var num,prev:integer;
begin
readln(num);
while num>0 do begin
  prev:=num;
  num:=num div 10;
end;
writeln(prev);
end.

Блок-схема описывается примерно так:
1. Получаем число
2. Отбрасываем одну его цифру
3. Если получили 0, то выводим то, что было до отбрасывания(переменная prev), иначе переходим к пункту 2.

Также не вполне честный, но тоже эффективный вариант:
var s:string;
begin
readln(s);
writeln(s[1]);
end.

Ответить

Другие вопросы из категории

Студенты педагогического института организовали эстрадный квартет.Михаил играет на саксофоне.Пианист учится на географическом факультете.Ударника зовут не

Валерием ,а студента географического факультета зовут не Леонидом.Михаил учится не на историческом факультете.Андрей не пианист и не биолог.Валерий учится не на физическом факультете,а ударник-не на историческом.Леонид играет не на контрабасе.На каком инструменте играет Валерий и на каком факультете он учится?

Задача A. Племя Чунга-Чанга (максимальное количество 30 баллов) На острове Чунга-Чанга ученые открыли необычное племя. Члены этого племени в разговоре не

применяют слова короче k знаков. Используя исходную фразу, определите, как она будет звучать на острове Чунга-Чанга. Входные данные. Вводится целое число k и исходная фраза (между слов может быть несколько пробелов). Выходные данные. Требуется вывести фразу, которая получится из исходной, путем убирания слов короче k знаков.

Первая их них увеличивает число на экране в 4 раза, вторая уменьшает на 1.

Составьте алгоритм получения из числа 3 числа 39, содержащий не более 5 команд. В ответе запишите только номера команд

Оператор варианта.

1. Вывести нечетные целые числа от 1 до 20
2.Вывести четные целые числа от 15 до 40

Читайте также

Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, причём разным буквам соответствуют разные

цифры. Выясните, какая цифра соответствует при этом букве «т», если известно, что: сумма цифр слова «бот» равна 8; сумма цифр слова «вол» равна 9; сумма цифр слова «болт» равна 11; сумма цифр слова «лото» равна 12.

действие комп вируса состоит в том,что вместо букв (б,в,л,о,т)печатаются цифры,кроме цифры 0,причём разным буквам соответствуют разные

цифры.выясните,какие цифры каким буквам соответствуют,если известно,что:
1)сумма цифр слова "бот" равна 8
2)сумма цифр слова "вол" равна 9
3)сумма цифр слова "болт" равна 11
4)сумма цифр слова "лото" равна 12

1. Если дано трехзначное число, например 123 его можно представить в

виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу,
которая, получая от пользователя трехзначное число, будет определять из каких цифр
оно состоит и выводить их через пробел (например, 1_2_3).

1)Ввести 2 числа,заменить число суммой чисел,а большее произведением. 2)Ввести 2 числа А и В заменить первое нулем если оно меньше второго. 3)Журнал стоит

k руб.Какую сдачу получит покупатель если у него в руб. 4)Определить ,является ли введенное шестизначное число счастливым,т.е. сумма первых трех цифр числа равна сумме последних трех цифр. 5)Определить ,является число А делителем числа В.

Введите целое число и найти сумму его цифр.

Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10



Вы находитесь на странице вопроса "Найдите первую цифру числа. Например, для числа 7658 это цифра 7. Написать блок-схему и программу.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.