В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
лох251
лох251
27.04.2023 22:49 •  Информатика

Выполнить обратную операцию: перевести запись с языка Pascal в нормальную математическую систему с информатикой! ​


Выполнить обратную операцию: перевести запись с языка Pascal в нормальную математическую систему с и

Показать ответ
Ответ:
eminimanov198
eminimanov198
10.09.2022 05:54
//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.
0,0(0 оценок)
Ответ:
annafa5
annafa5
15.04.2020 13:19

1)Бюджетный/Офисный

AMD Athlon 200ge

3.2ггц

8гб DDR 4

500gb

Встроенный-Vega 3,либо дискретный RX 550

4

Usb 3d sound

Samsung s25r350

24

1920x1080p full HD

5мс

2)Середній пк:

AMD ryzen 3 3100

3.6(3.9)ггц

16gb

1TB

Rx 580

8

Usb 3d sound

MSI optix 27

27

1920x1080 full HD

1мс

3)Вгровий:

Ryzen 9 3950x

3.5(4.7)ггц

32гб

3тб

RTX 2080 ti Super gaming(msi)

8

Usb 3d sound

Acer Predator 27

27

3840x2160 4k

4мс

Должно пойти (Последний игровой т.к корреспондент может монтировать видео и рендерить.)

Ггц в скобках это чястота в игровом режиме

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота