// PascalABC.Net
function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
d,nd,sd:byte;
begin
sd:=0; nd:=0;
repeat
d:=n mod 10;
sd:=sd+d; Inc(nd);
n:=n div 10
until n=0;
IsNice:=(sd mod nd = 0)
end;
var
i,n,k:longint;
begin
Write('Порядковый номер "красивого" числа: '); Read(n);
i:=1; k:=0;
repeat
if IsNice(i) then Inc(k);
if k<>n then Inc(i)
until k=n;
Writeln('Красивое число равно ',i)
end.
<em><u>Тестовое решение:</u></em>
Порядковый номер "красивого" числа: 15
Красивое число равно 20
Те́кстовый проце́ссор — компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны (свойство, известное какWYSIWYG)[1].
Современные текстовые процессоры, помимо форматирования шрифтов и абзацев и проверки орфографии, включают возможности, ранее присущие лишь настольным издательским системам, в том числе создание таблиц и вставку графических изображений[1].
Наиболее известными примерами текстовых процессоров являются Microsoft Word и OpenOffice.org Writer.
Текстовыми процессорами в 1970-е — 1980-е годы называли предназначенные для набора и печати текстов машины индивидуального и офисного использования, состоящие из клавиатуры, встроенного компьютера для простейшего редактирования текста, а также электрического печатного устройства. Позднее наименование «текстовый процессор» стало использоваться для компьютерных программ, предназначенных для аналогичного использования.
Машина — текстовый процессор Brother WP-1400D, 1994 год
Программы для работы с текстами можно разделить на текстовые редакторы, текстовые процессоры и издательские системы.
Содержание <span> [убрать] </span><span><span>1Известные текстовые процессоры</span><span>2См. также</span><span>3Примечания</span><span>4<span>Ссылки
</span></span></span>
Всё довольно просто. Вещественные в си++ это double и мы их обьявляем и сразу задаём их значение.
Далее цикл while задаём внутренее условие аналогичное коду задания.
Далее просто переписываем всё из кода задания.
В конце вывод.
Код:
#include <iostream>
using namespace std;
int main() {
double a=0,P=1;
while(a <= 20){
P*=a;
a+=2;
}
cout << P;
}
Объем видеопамяти будет равен 800*640*24 = 12288000 бит
12288000/8 = 1536000 байт
1536000/1024 = 1500 кбайт
1500/1024 = 1,47 Мб
Var x: real;
begin
read(x);
if(x < -1) then writeln(-x + 1)
else if(x >= -1) and (x < 0) then writeln(0)
else writeln(x * x);
<span>end.</span>