Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
диас137
07.10.2019 18:40 •
Информатика
Синформатикой: составьте алгоритм в кью бейсике задается число n программа печатает таблицу квадратов натуральных чисел меньших n за решение 10
Показать ответ
Ответ:
tven1808
02.04.2022 13:58
Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма: ', abs(a)+abs(b));
writeln('Разность: ', abs(a)-abs(b));
writeln('Произведение: ', abs(a)*abs(b));
writeln('Частное: ', abs(a)/abs(b));
end.
0,0
(0 оценок)
Ответ:
камран12
14.09.2021 11:40
Readln(a,b);
mu:=0;
Repeat
mu:=mu+a;
Dec(b);
Until b=0;
Writeln(mu);
0,0
(0 оценок)
Популярные вопросы: Информатика
angel3530
08.08.2019 21:30
Написать ! доклад на тему внешняя память компьютера только не слишком большой, потому-что я не успею его написать, а принтера у меня нет !...
Gogasg
08.08.2019 21:30
n школьников делят к яблок поровну,неделящийся остаток остается в корзине.сколько яблок достанется каждому и сколько останется в корзине? использовать язык паскаль...
Karbobo
08.08.2019 21:20
Какое минимальное основание должна иметь система счисления. если в ней можно записать числа 341, 123, 222, 111. обоснуйте свой ответ....
Siiii
08.08.2019 21:20
Вмастерской по изготовлению матрёшек работают резчики по дереву и художники. один резчик может за день вырезать 5 матрёшек, а один художник за день расписывает 2 матрёшки....
gyulmalievasab
08.08.2019 21:20
Надо в pascal составить программу. 1) задает следующие вопросы и позволяет ввести ответы: как тебя зовут? введи номер класса в котором ты учишься. 2) выдает фразу : имя,...
LeaV
08.08.2019 21:20
Перетворення двійкового числа на десяткове: 1) 1000011101 2) 101001101...
nmio2005
08.08.2019 21:20
Надо люди . мост через реку стоит на 15 опорах, обозначим их буквами латинского алфавита от а до о. необходимо произвести ремонт опор моста, при разборке проекта ремонта...
illia2006
08.08.2019 21:10
Даны три целых числа(a b c) найти количество отрицательных чисел в исходном наборе...
Ангелина22325
08.08.2019 21:10
Из москвы в санкт-петербург выезжает пассажирский поезд, который движется со скоростью v км/ч. одновременно из санкт-петербурга в москву отправляется скоростной поезд cапсан...
ТарасоваЮля
08.08.2019 21:10
Нельзя преобразовать тип real к integer program chees; var m,n,s,k : real; begin readln(m); readln(n); s: =m*n; if s mod 2 0 then k : = s /2+1 else k: =s/2; writeln(k) end....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
a, b: integer;
begin
readln(a, b);
writeln('Сумма: ', abs(a)+abs(b));
writeln('Разность: ', abs(a)-abs(b));
writeln('Произведение: ', abs(a)*abs(b));
writeln('Частное: ', abs(a)/abs(b));
end.
mu:=0;
Repeat
mu:=mu+a;
Dec(b);
Until b=0;
Writeln(mu);