1. var k, l, m, n: integer; begin readln(k,l,m,n); if (k+l+m+n mod 2 = 0) then writeln('поля одного цвета') else writeln('поля разных цветов') end.
2. uses crt; {В зависимости от компилятора эта строчка может оказаться лишней} var question, answer: integer; begin randomize(); question := random(100); writeln(question); readln(answer); if (question+answer=100) then writeln('Not bad') else writeln('Oops. Right answer is ', 100-question) end.
oknacrow
11.07.2022
Содержит программное обеспечение, достаточное для получения рабочей системы, включая текстовый редактор и основные коммуникационные программы. AP Различные приложения, для работы которых не требуется система X Window. D Инструменты для разработки программ. Компиляторы, отладчики, интерпретаторы и страницы руководства. E Текстовый редактор Emacs от GNU. F Документы FAQ, HOWTO и другая разнообразная документация. GNOME Среда рабочего стола GNOME. K Исходный код ядра Linux. KDE Среда рабочего стола KDE (K Desktop Environment). Графическая среда с оформлением и внешнем виде в стиле MacOS и Windows. В этой категорию также входит библиотека Qt, необходимая для работы KDE. KDEI Пакеты с локализацией настольной среды KDE. L Библиотеки. Динамически подключаемые библиотеки, необходимые для работы многих программ. N Сетевые программы. Демоны, почтовые клиенты, telnet, клиенты чтения новостей и т.п. T Система форматирования документов teTeX. TCL Язык TCL (Tool Command Language). Tk, TclX и TkDesk. X Базовый комплект для системы X Window. XAP Графические приложения, не являющиеся частью больших настольных сред (например, Ghostscript и Netscape).
Шеина
11.07.2022
1. "Школьное" решение // PascalABC.Net 3.0, сборка 1064 var i,n1,n2:integer; s:longint; begin Write('Введите интервал для вычисления суммы: '); Read(n1,n2); s:=0; if n1 mod 2 = 0 then i:=n1 else i:=n1+1; while i<=n2 do begin s:=s+i; i:=i+2 end; Writeln('Сумма четных чисел в интервале равна ',s) end.
Тестовое решение: Введите интервал для вычисления суммы: 7 14 Сумма четных чисел в интервале равна 44
2. Современное решение // PascalABC.Net 3.0, сборка 1064 var n1,n2:integer; begin Write('Введите интервал для вычисления суммы: '); Read(n1,n2); if Odd(n1) then Inc(n1); Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Построить таблицу значений функции у=х^3+2 для значений аргументов от -3 до 3 с шагом 0, 5. постройте график функции. заданние выполнить в exel
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.