1. Информатика
  2. На паскале. напиши программу,

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

VicktoriaGra VicktoriaGra    1   25.01.2020 20:46    2

Ответы
Kenny22332 Kenny22332  11.10.2020 03:09

PascalABC.NET

begin

 var C := ReadInteger('Введите натуральное число:');

 if C.IsOdd then

   C -= 1;

 Range(C, 2, -2).PrintLines

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Умницка1 Умницка1  18.09.2019 08:50
Определите функционал программы. begin readln(n); count : = 0; for i : = 1 to n do begin if n mod i = 0 then inc(count) end; writeln(count = 2) end. 1)находит веденное число равным...
Qwerfcsfvfw Qwerfcsfvfw  18.09.2019 08:50
Пользователь начал работу в каталоге работа1. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз, потом...
Хрусть Хрусть  18.09.2019 08:50
Разгадайте шифр! 1100011 1101100 1110101 1100010 110001 110110 110001 111001 110001 110100 110000 110110 110010...
vasnecovadaha vasnecovadaha  18.09.2019 08:50
Логическое выражения not( nota→ (b→notc)) не могу разобрать как это решать...
DarinaDoka666 DarinaDoka666  18.09.2019 09:00
Переписать в текстовый файл т2 содержимое текстового файла т1 без строк, содержащих цифры (паскаль)...
bockovickof bockovickof  18.09.2019 09:00
Какие символы нельзя использовать в адресе электронной почты?...
770glym 770glym  18.09.2019 09:00
Написать программу которая запрашивает 2 целых числа. если 1 число больше чем второе, то необходимо вывести на экран целую часть от деления первого числа на второе, а иначе нужно...
Алена173 Алена173  18.09.2019 09:00
Рассчитайте объём стереоаудиофайла длительностью 32 секунды при 32-битном кодировании и частоте дискредитации 44,1 кгц....
lewaq lewaq  18.09.2019 09:00
Колобок рассказывал всем встречным о себе. какое правило мнформационной безопасности он нарушщил?...
rstksmirnov rstksmirnov  18.09.2019 09:00
Дана строка символов. группу символов, ограниченную с одной или нескольких сторон пробелами и не содержащую внутри себя пробелов, назовем словом. распечатать все слова, в которых...

Популярные вопросы