Program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.
3. -ABS(-КОРЕНЬ(4)) = -ABS(-2) = -2
ответ: Г) -2
5. В Power Point 2003 - Показ слайдов > Настройка анимации
ответ: А) Показ слайдов
7. Диапазон C3:E3 состоит из 3 ячеек, диапазон С3:F3 состоит из 4 ячеек ⇒ СРЗНАЧ(C3:F3) = (15+5)/4 = 5
ответ: В) 5
Надо чтобы в лодку сели Бах и Гэ, а Вау и Ах должны поплыть без лодки, так как они плывут быстрее, и поэтому все успеют приплыть туда и вернуться обратно за 18 часов !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
С помощью компьютера можно сделать любой дизайн