tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести целое число, найти его
Ввести целое число, найти его квадрат, не используя операцию умножения. (составьте алгоритм)
dreakalex
2 10.08.2019 21:40
0
Ответы
муксик
04.10.2020 10:08
Var a,a2,i:integer;
begin
write('a = ');
readln(a);
a2:=0;
for i:=1 to a do a2:=a2+a;
writeln(a,'^2 = ',a2);
end.
Пример:
a = 7
7^2 = 49
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Celebrat
24.05.2019 14:30
Переведите числа : 1010101-дест.систему счисления 1031-в двоич.систему счисления...
bmorextreme
24.05.2019 14:30
Информационное сообщение имеет 4200 бит и содержит 525 символов. сколько символов содержит алфавит при которого записано сообщение...
BafuDzn
24.05.2019 14:30
Каждый символ в unicode закодирован двух байтовым словом. оцените информационный объем следующего предложения в этой кодировке: «все мы погрязли в болоте, но некоторые из...
Anastasia05021
24.05.2019 14:30
Перечислите немение пяти устроиств внешней памяти...
Куколка111
24.05.2019 14:30
Магический квадрат для ряда чисел 2 5 8 11 14 17 20 23 26...
1sherlock2
24.05.2019 14:30
Сообщение занимает 2 страницы и содержит 1/16 кбайта информации. на каждой странице записано 256 символов. какова мощность использованного алфавита?...
helpplizzzz
24.05.2019 14:30
Выполни операцию вычитания над двоичными числами: 1101110110-101110111 1101101010-110111011 10111011000-1110001011...
jamshidbek
24.05.2019 14:30
Внекоторой стране автомобильный номер длиной 6 символов составляют из заглавных букв (всего используют 22 различные буквы) и десятичных цифр в любом порядке. каждый такой...
Еккуш63шшк83оагш7гв
24.05.2019 14:40
Вкаждом из 4-х углов комнаты стоит компьютерюнапротив каждого из этих компьютеров также стоит компьютер. сколько всего компьютеров....
mariy2104
24.05.2019 14:40
Время 128 секунд, объём 225 килобайт. найти скорость в битах секуны. решите . кто решит того ....
Популярные вопросы
Сочинение на тему как я отношусь к природе...
1
Узнайте у родителей какую колыбельную...
1
Проследите по тексту былиныилья муромец и соловей разбойник как менялись...
1
Скр_пить дружбу ,прим_рить друзей , талант , объед_нить друзей , дать...
2
Дроби: 1) а) x в квадрате - 4y в квадрате x - 2y б) 2y-x x -4y 2 а) m...
3
Спиши ключевые слова текста,вставляя буквы: дядя федор спрашивает кота:...
3
Сочинение на тему: посещение музея...
1
Потемнели белые облака.где здесь предмет , действие предмета и признаки...
3
Лицо, дрогнуло, доброй морфологический разбор...
2
90 за решение! с точки к прямо проведено две наклонные,длинна которых...
3
begin
write('a = ');
readln(a);
a2:=0;
for i:=1 to a do a2:=a2+a;
writeln(a,'^2 = ',a2);
end.
Пример:
a = 7
7^2 = 49