Паскаль как найти сумму двузначного числа - Avtoru.top

RomЫЧ

0 / 0 / 0

Регистрация: 25.03.2011

Сообщений: 27

Найти сумму цифр двузначного числа

10.11.2011, 12:07. Показов 28120. Ответов 1

Метки нет (Все метки)

Если к сумме цифр двузначного числа прибавить квадрат этой
суммы, то получится снова это двузначное число. Найдите все эти
числа
вот задание…я ковырялся, но так и не догнал что делать..

Pascal

Program qq;
 
var
x,y,c: real;
b,a: integer;
begin
for a:=10 to 99 do
begin
cls;
x:=a div 10;
y:=a mod 10;
if a=10 then
a :=(x+y)+(sqr(x+y));
Writeln ('числа ',a)
end;
end.

может кто сказать, что тута не так?

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

10.11.2011, 12:55

Да все не так, мозг нужно включать когда пишешь.

Pascal

Program qq;
uses crt;
var a,x,y: integer;
begin
for a:=10 to 99 do
  begin
   x:=a div 10;
   y:=a mod 10;
   if x+y+sqr(x+y)=a
   then writeln(a,'=',x,'+',y,'+',sqr(x+y));
  end;
end.

Источник

Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр.

Получи верный ответ на вопрос 🏆 «Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр. …» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!

Найти готовые ответы

Главная » Информатика » Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр.

Источник

<h2>Найдите лишнее</h2>

<u>Операционная система</u>, остальное — программы.

<h2>Найти и исправить ошибки</h2>

Системные программы — это средства, предназначенные для работы с операционной системой.

<h2>Операционные системы</h2>

а) DOS, Windows, Unix

<h2>Сервисные программы</h2>

в) Системные оболочки, утилиты, драйвера устройств, антивирусные и сетевые программы.

<h2>Текстовый редактор</h2>

а) Системного программного обеспечения.

<h2>Операционная система</h2>

в) Набор программ, обеспечивающий работу всех аппаратных устройств компьютера и доступ пользователя к ним.

<h2>Драйвер</h2>

б) Программа, управляющая конкретным внешним устройством.

<h2>Экспертные системы</h2>

д) Прикладным программам специального назначения

<h2>Средства контроля и диагностики</h2>

д) Сервисному программному обеспечению

<h2>2 Вариант</h2><h2 /><h2>Программное обеспечение — это</h2>

программа, управляющая компьютером или его процессами.

<h2>Найдите лишнее</h2>

<u>OC Windows</u>, остальные — программы.

<h2>Найти и исправить ошибки</h2>

Прикладные программы – это средства, предназначенные для определённых задач пользователя.

<h2>Системное программное обеспечение</h2>

а) Программы для организации совместной работы устройств компьютера как единой системы.

<h2>Система управления базами</h2>

д) Прикладного программного обеспечения.

<h2>Операционные системы</h2>

б) Системного программного обеспечения.

<h2>Программы обслуживания устройств</h2>

б) Драйверами.

<h2>В прикладное ПО входят</h2>

д) Текстовые редакторы.

<h2>Назначение ПО</h2>

в) Организует процесс обработки информации в соответствии с программой.

<h2>Система программирования позволяет</h2>

г) Организовать общение человека и компьютера на формальном языке.

Источник

ПАСКАЛЬ 7

Найти сумму числ двузначного числа (допустим 25 — 2 + 5)

Прошу вас.

На этой странице сайта вы найдете ответы на вопрос ПАСКАЛЬ 7Найти сумму числ двузначного числа (допустим 25 — 2 + 5)Прошу вас?,
относящийся к категории Информатика. Сложность вопроса соответствует базовым
знаниям учеников 5 — 9 классов. Для получения дополнительной информации
найдите другие вопросы, относящимися к данной тематике, с помощью поисковой
системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и
задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям.
Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы
помогут найти нужную информацию.

Источник

Integer7. Дано двузначное число. Найти сумму и произведение его цифр.

Решение:

program Integer7;

var

A, Res: Integer;

begin

Write(‘Введите двузначное число: ‘);

Readln(A);

Res:=(A div 10) + (A mod 10);

Writeln(‘Сумма его цифр равна: ‘,Res);

Res:=(A div 10) * (A mod 10);

Writeln(‘Произведение его цифр равно: ‘,Res);

end.

Другие задачи из раздела Integer можно посмотреть здесь.

Источник

Найти сумму цифр двузначного числа

Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр.

Не пропустите также: