tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число c.напишите
Дано целое число c.напишите программу,которая возводит в квадрат частное от целочисленного деления числа с на 5 и выводит на экран монитора результат)
карина5647
3 12.07.2019 08:10
0
Ответы
999997675656
18.09.2020 09:53
Var
c: integer;
begin
read(c);
writeln(sqr(c div 5));
end.
ПОКАЗАТЬ ОТВЕТЫ
albina24061980
18.09.2020 09:53
Program del;
var p, s: integer;
begin
writeln('Введите делимое'); readln(p);
s:= sqr(p mod 5);
Writeln('Остаток в квадрате =', s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
maxtihvin
18.11.2020 15:01
заполнить таблицу. Информатика 4 класс. ...
SadEngineer
18.11.2020 15:01
Запиши верный ответ. (Используй символы &,¬,+,∨) A∨F¯¯¯¯¯¯¯¯¯=...
artemkovalev1
18.11.2020 15:01
1. Представьте числа 12110 и – 5810 в знаковом 8-разрядном формате. 2. Найдите десятичные эквиваленты чисел по их прямым кодам, записанным в 8-разрядном формате со знаком: а)10011011...
Yulduzka28
31.07.2019 08:00
Объясните исполнитель редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить (v,...
GG01155
31.07.2019 08:00
Var x, l, m: integer; begin readln(x); l : = x - 16; m : = x + 16; while l m do if l m then l : = l - m else m : = m – l; writeln(m); end. 20 (№ 424) ниже записан алгоритм. получив...
EvaGRNV
31.07.2019 08:00
Определить сколько слов в строке является палиндромом (читаются одинаково как слева направо, так и справа налево). в основной программе написать подпрограмму, определяющую является...
МасяшкаМ
31.07.2019 08:00
Составить программу расчета внесения известкового удобрения по формуле: д=100*н/(100-в)(100-к)п, где н- полная норма сасо3, т/га; в-влажность извести,%; к- количество недеятельных...
жансаяболатова
31.07.2019 08:00
Подсчитать количество нулевых элементов вектора x(10)...
verayusupova86
31.07.2019 08:10
Вычислить среднее арифметическое значение отдельно положительных и отрицательных элементов матрицы c(50,20) и блок-схему если не сложно....
savikdaniil3
31.07.2019 08:10
Скоро экзамен -4. основные понятия алгоритмизации св-ство алгоритма 5.виды программирования. структурная модульная, логическая, функциональная, процедурная 20. структура таблиц ввод...
Популярные вопросы
На какие группы разделяются горы по высоте...
3
Из города одновременно выехали в противоположных направлениях мотоциклист и велосепидист...
2
2х-(2х+y)+y раскрыть скобки и выражение...
1
Вкаком случае сила трения между двумя свинцовыми пластинами больше: когда они...
2
Решить значение выражение (96-48): 6+10*(35-29): 20...
3
V-70 мм\с m-9.11*10-³¹ кг ек энергия-?...
2
На встречу друг другу из двух городов, расстояние между которыми 450 км, выехало...
3
Какое наклонение у глаголов : гудело, ворчало, пузырилось, прыгало....
2
первобытная эпоха лирична, античная эпоха эпична, а современная эпоха драматична....
2
На основании уравнения 4al(к)+3о2(г)=2al2o3(к)+3200кдж укажите величину теплового...
3
c: integer;
begin
read(c);
writeln(sqr(c div 5));
end.
var p, s: integer;
begin
writeln('Введите делимое'); readln(p);
s:= sqr(p mod 5);
Writeln('Остаток в квадрате =', s);
end.