Паскаль 1) напишите программу, которая выводит на экран все трехзначные числа, которые не делятся на 7. 2) решить уравнение x^2+y^2=z^2 для натуральных чисел не превосходящих 100
151
272
Ответы на вопрос:
1)
var a: array[1..900] of integer; i,n: integer; begin n: =99; for i: =1 to 900 do begin inc(n); a[i]: =n; if a[i] mod 7 < > 0 then write(a[i]: 4); end; end.
Скорость в мб/c 100/8 = 12,5 мб/c переведем в кб/с = 12,5 * 1024 = 12800 кб/с тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд
Популярно: Информатика
-
Маргарита551525.03.2020 17:22
-
lydavika75513.07.2022 20:26
-
akot200508.02.2021 15:57
-
aika962608.11.2022 18:45
-
AlinaZimina200330.12.2021 17:04
-
strees124.04.2023 00:53
-
Малинка123224.02.2021 13:52
-
fun234567790486620.08.2022 02:03
-
Klot070821.09.2020 01:58
-
нрпаллмаегли05.06.2021 20:55