М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Решить 8 класс по информатике! решаются они через турбо паскаль. 1)найти колличество нечетных делителей натурального числа,больших к(к вводятся с клавиатуры). 2)найдите все натуральные числа х,у,z из интервала от 1 до 20,для которых выполняется равенство : ху(квадрат)=z(квадрат) надоо !

👇
Ответ:

var s:integer;
i,k:longint;
begin
readln(k);
i:=3;
while i<k-1 do begin
i:=i+2;
if k div i=k/i then inc(s);
end;
writeln(s,' delitelei');
end.

 

var i,j:integer;

begin

for i:=1 to 20 do

for j:=1 to 20 do

if sqr(j)*i<20 then writeln('x=', i,' y=', j,' z=', sqr(j)*i);

end.

4,5(62 оценок)
Открыть все ответы
Ответ:
MercerNani
MercerNani
13.04.2022

печатная машина может показаться совершенно безвредной, но иногда она может оказаться не в пользу вас или вашего бизнеса, поскольку не обеспечивает оптимального качества печати при необходимости больше всего. если принтер canon не подключен к вашему устройству или беспроводной сети (если принтер беспроводной), он не может печатать. итак, вам нужно сразу создать соответствующую настройку беспроводного принтера canon. если вам нужна дополнительная по этому поводу, то вы можете связаться с опытными ценителями. для этого вам просто нужно позвонить по бесплатному номеру и соединиться с ними по телефону.

4,5(30 оценок)
Ответ:
gulim1902
gulim1902
13.04.2022

Program nnatovna;
uses crt;
const n=13;
var
  a:array [1..n] of integer;
  i,min,max,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{ищем номера мин и мах}
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[min]>a[i] then min:=i;
      if a[max]<a[i] then max:=i;
    end;
{меняем местами мин и мах элементы}
  temp:=a[min];
  a[min]:=a[max];
  a[max]:=temp;    
{вывод результата}
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.

4,7(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ