М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ДЭМКО
ДЭМКО
06.12.2021 03:08 •  Информатика

Написать ,которая будет выводить на экран квадраты чисел делящихся на с в последовательности чисел от а до в. в паскале

👇
Ответ:

program HelloWorld;

var a, b, c, i :integer;

begin

    writeln('Введите  C');

    readln(c);

    writeln('Введите  A');

    readln(a);

    writeln('Введите  B');

    readln(b);

   

    for i := a to b do

     if sqr(i) mod c = 0 then writeln(i);

end.

4,4(95 оценок)
Ответ:
NikMishakov
NikMishakov
06.12.2021
Var 
   a, b, c, i :integer;
Begin
   write('Введите C: ');
   read(c);
   write('Введите A: ');
   read(a);
   write('Введите B: ');
   read(b);
   for i := a to b do 
      if i mod c = 0 then write(i*i,'   ');//если число делится на С, то выводим его
                                                                                                                       квадрат
End.

В предыдущем ответе выводятся числа, квадраты которых делятся на С.
4,7(83 оценок)
Открыть все ответы
Ответ:
раптраир
раптраир
06.12.2021

Растровое изображение (лат. rastrum — грабли) — изображение, представляющее собой сетку (мозаику) пикселей — цветных точек (обычно прямоугольных) на мониторе, бумаге и других отображающих устройствах. Растровую графику редактируют с растровых графических редакторов.

Векторная графика представления объектов и изображений (формат описания) в компьютерной графике, основанный на математическом описании элементарных геометрических объектов, обычно называемых примитивами, таких как: точки, линии, сплайны, кривые Безье, круги и окружности, многоугольники.

Объяснение:

Не за что.

4,4(93 оценок)
Ответ:
trototil
trototil
06.12.2021

Объяснение:

Последовательность дней недели периодична с периодом 7, поэтому номер дня недели можно найти, взяв остаток от деления: (номер дня недели первого числа + сколько Такое решение будет давать верный ответ для всех дней недели кроме воскресенья: для воскресений будет выведен ноль (а не 7). Решить это можно, перенумеровав все номера дней недели с нуля, а не с единицы.

m - 1 – номер дня недели первого числа месяца (считая с 0)

n - 1 – пройдёт от первого числа  

(m + n - 2) mod 7 – номер нужного дня недели (считая с 0)

(m + n - 2) mod 7 + 1 – ответ.

Программа (PascalABC.NET):

begin

 var n := ReadInteger;

 var m := ReadInteger;

 print((m + n - 2) mod 7 + 1)

end.

Пример ввода:

7

7

Пример вывода:

6

(Действительно, 1 апреля 2018 года – воскресенье, а сегодня, 7 апреля – суббота)

4,6(37 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ