Компьютеры от компании apple.
Ответ:
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.
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Var a, b, sum: integer;
readln(a);
readlb(b);
if ((a div 10 = 6) or (a mod 10 = 6)) and ((b div 10 = 6) or (b mod 10 = 6)) and ((a < 100) and (a > 9) and (b > 9) and (b < 100)) then
sum := a + b;
else writeln("в числах нет 6 или они не двузначные");
writeln(sum);
кажется должно быть понятно(это на паскале, но я его не помню и может быть ошибка где-нибудь.
а так просто объяснение:
вводим с клавиатуры 2 числа, заводим переменную для суммы
проверяем есть ли в числах цифра 6 и не двузначное ли оно
если все ок, то считаем и выводим сумму