Компьютер
------------------
Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.
var a:real;
b:integer;
begin
readln(a);
b:=round(a*1000)mod 1000;
write(b div 100 + b mod 10 + b mod 100 div 10);
end.
1. За допомогою кнопки Файл
2. Натиснути Зберегти як
4. В поле Назва
5 Натиснути кнопку зберегти