1. F14 + G7.
2. B13 - 25.
3. $E7 + D$5.
4. D5 + $G$8.
5. C4 = $A$4 + 100 = 103.
var
a : array [1..1000] of integer;
i, n, sum : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then inc (sum, a[i]);
writeln (sum);
end.
- байты на одной странице.
- байты на одном листе.
<span>Ответ: Примерно поместится 243 листов.</span>
Поля для ввода, иконки в средах программирования, кнопки и т.д
В них вводится текст. А также с помощью диалоговых окон можно осуществлять общение юзера и системы.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.