Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Ника6660
08.03.2023 14:04 •
Информатика
Конспект на тему Форма(access) 1.внешний вид,
2. требования к форме.
3.Связь таблицы и формы.
👇
Увидеть ответ
Открыть все ответы
Ответ:
mishelmarriano
08.03.2023
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
function IsPrime(m:integer):=(Range(2,Round(sqrt(m))).All(x->m mod x<>0));
begin
var n:=ReadInteger('n=');
Range(1,n).Where(i->IsPrime(i)).Println
end.
Пример
n= 318
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
function NOD(m,n:integer):integer;
begin
while n>0 do (m,n):=(n,m mod n);
Result:=m
end;
begin
var a,b:integer;
Write('Введите пару натуральных чисел:'); Read(a,b);
Writeln('НОД=',NOD(a,b))
end.
Пример
Введите пару натуральных чисел:7955 5661
НОД=37
4,4
(55 оценок)
Ответ:
lutaasasa5p08d7e
08.03.2023
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
procedure Love(n:integer);
begin
Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;
begin
Love(ReadInteger('n='))
end.
Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
procedure LinEqu(a,b:real);
begin
if a=0 then
if b=0 then Writeln('Решений бесконечно много')
else Writeln('решений нет')
else Writeln('x=',-b/a)
end;
begin
var a,b:real;
Write('Введите а и b: '); Read(a,b);
LinEqu(a,b)
end.
Пример
Введите а и b: 18.45 -12
x=0.650406504065041
4,4
(21 оценок)
Это интересно:
О
Образование-и-коммуникации
08.05.2022
Как нарисовать Гарри Стайлса: Подробный гид для начинающих художников...
О
Образование-и-коммуникации
09.06.2023
Как стать онлайн-корректором: советы и требования...
С
Стиль-и-уход-за-собой
06.12.2022
7 шагов к переходу от темных волос к светлым: все, что вы должны знать, чтобы изменить свой цвет волос...
07.06.2020
Как перестать сомневаться: 10 простых шагов...
П
Питомцы-и-животные
04.01.2023
Как растить котят: основные правила и советы...
М
Мир-работы
31.01.2020
Как собрать детскую кроватку: подробная инструкция...
С
Стиль-и-уход-за-собой
13.10.2021
Как изменить стиль исходя из вашего бюджета...
О
Образование-и-коммуникации
23.09.2021
Как построить гистограмму: подробное руководство...
К
Компьютеры-и-электроника
25.01.2020
Простой способ сохранить вложение на компьютер...
В
Взаимоотношения
21.11.2020
Страх перед длинными словами: как правильно произносить сложные термины?...
Новые ответы от MOGZ: Информатика
KIrito5016
22.03.2023
Казахстана случайно написало информатика...
Тефте
13.12.2021
Вариант 16 1) 11022) 303, 3) 196 4) 72,6 5) 1111 + 10001000 перводы с вычисления...
ayshahajiverdiyeva
14.04.2020
Какой объем памяти необходим для хранения книги из 10 страниц, если на каждой странице 30 строк по 40 символов в каждой строке? а) 12 000 бит б) 12 000 байт в) 1...
DevilWoods
14.04.2020
Значение арифметического выражения: 9*8 - 3*5 + 2 – записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи? Сколько цифр «1» содержится...
marekatyan
30.06.2020
Камера делает фотоснимки 512 на 265 пикселей. При этом объём файла 9 с изображением не может превышать 145 Кбайт, упаковка данных не производится. Какое максимальное...
Дима22222222
17.04.2022
С пояснением решения Определите наибольшее значение входной переменной k, при котором программа выдает ответ 9: def f(n) return n*n+4*n k=int(input()) i=20 while...
ivancerbadji
21.10.2021
Укажите самые популярные форумы. Какими форумами пользуетесь(пользовались) Вы?...
saha174zxcvb
27.07.2020
Выполните вычисления в модифицированном машинном коде, имитируя работу арифметико-логического устройства (АЛУ), для чисел, представленных в форме с плавающей точкой...
Аноним20021304
31.03.2022
1.Даны три числа. Найти пары кратных. (например, 12, 6, 4 12 кратно 6, 12 кратно 4) 2. Ввести трехзначное число. Определить совпадают ли в нем первая и вторая цифры....
Ника65790
05.02.2023
Який колір представляє 16-ковий код моделі RGB #DD00СЕ ? Виберіть одну відповідь: Фіолетовий Блакитний Червоний Зелений...
MOGZ ответил
Сделайте последовательное соединение конденсаторов если каждый...
Термины вселенная, космос солнечная система...
Day 1: monday - in the morning i thought hard about my algebra...
Какова удельная теплота сгорания угля, если при полном сгорании...
Рассчитайте количество теплоты которые потребуется для нагревания...
Периметр прямоугольника 38см. 1целую 5/7 раза больше ширины. какова...
Школьники пошли в поход.они перешли через овраг.вот и лес.трава...
Что тут нужно делать? хотя бы переведите 1)мына сөздерді тәуелде:...
X+457=839 a*30=150 x-624=281 a/20=9...
Рассказ про птиц алаколя на казахском языке...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// Внимание! Если программа не работает, обновите версию!
function IsPrime(m:integer):=(Range(2,Round(sqrt(m))).All(x->m mod x<>0));
begin
var n:=ReadInteger('n=');
Range(1,n).Where(i->IsPrime(i)).Println
end.
Пример
n= 318
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
function NOD(m,n:integer):integer;
begin
while n>0 do (m,n):=(n,m mod n);
Result:=m
end;
begin
var a,b:integer;
Write('Введите пару натуральных чисел:'); Read(a,b);
Writeln('НОД=',NOD(a,b))
end.
Пример
Введите пару натуральных чисел:7955 5661
НОД=37