Информатика (решить все через while) 1.составьте и отдадите программу,определяющую максимальное из всех введенных вами чисел.(пусть признаком конца ввода чисел является введённое число 0) 2найти наибольшее и наименьшее значение функции y=3x^2+x-4,если на заданном интервале [a,b] x изменяется с шагом 0,1. 3.составьте программу определения наибольшего общего делителя двух натуральных чисел
lolloool2017
2
20.09.2019 05:40
1
Другие вопросы по теме Информатика
ДуанбекМариям
22.09.2019 17:40
atsaruk2002
22.09.2019 17:40
MariaUralova
11.06.2019 19:10
Alenka341
11.06.2019 19:10
гиений1509
11.06.2019 19:10
silverside
21.05.2020 13:01
Aigerimmmmmmm
30.04.2021 09:16
Неизвестный17781
30.04.2021 09:18
Tukko
05.09.2019 07:30
Популярные вопросы
- установите типы связей, в которые вступают: 1)медведь в лесу 2)бабочки в луговом...
2 - Вычислите годы правления Нерона, если он получил власть через 81 год после того,...
1 - Марина нарисовала на асфальте прямоугольник ширина которого 8см а длина 4 раза больше...
2 - Х2 + 2y = - 2,Решите систему уравненийx+y = -1...
3 - Найдите значение выражения X-y/y если x+y/y=5 ...
1 - Какие вам известны санжыра, легенды и Предания о сражения кыргызов с калмыками....
2 - Сосуд в форме куда с ребром 20см заполнен маслом и водой. Масса воды в 2 раза меньше...
3 - Найдите площадь равнобедренного треугольника, основание которого равно 6 см, боковая...
3 - Рассмотри рисунок М. Лермонтова, обрати внимание на изображение коней. Опиши рисунок,...
1 - 5. Установите соответствие между предложениями и их характеристиками. (Знаки препинания...
3
program p1;
var max, a: integer;
begin max := 0; writeln('Введите число'); readln(a); while a <> 0 do begin if a > max then max := a; readln(a); end; writeln(max);end.