Ответ:
program pred;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
while i <= n do begin
if i mod 2 = 0 then
s := s + i;
Inc (i);
end;
WriteLn ('Сумма = ', s);
ReadLn;
end.
- - - - - - - - - - - - - -
program post;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
repeat
if i mod 2 = 0 then
s := s + i;
Inc (i);
until i > n;
WriteLn ('Сумма = ', s);
ReadLn;
end.
Перевод информации из понятной компьютеру или цифровой, в другой вид информации понятной например людям или возможно дельфинам)
Примеры устройств вывода: колонки, принтер, монитор
#include <iostream>
int main (){ int y, x; std::cin>>x; switch (x) { case 3: y = 1; break; case 6: y = 2; break; default: y= 3; break; } std::cout<<y;}
10000000 ................
Var
Y,X:real;
Begin
Write('X = ');ReadLn(X);
if X<2 then Y:=5
else if X=2 then Y:=2
else Y:=10;
WriteLn('Y = ',Y);
End.
<span>2)
c = 5, когда не выполняется оба условия, то есть:
</span><span><span>If a<7 then c:=10 // a>=7
else if a>7 then c:=2 // a>7
else c:=5
Переменная a может иметь любое значение больше семи.
</span></span>