ответ. в результате работы программы получим: х = 10, у = 9.
Ответ разместил: Гость
for i: =1 to n do
if (a mod 3=0)and(a mod 5> 0) then write(a,’ ‘);
Ответ разместил: Гость
var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;
begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln(‘массив с замененным минимальным элементом’); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.
Источник: vseznaniya.com
Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal. алг выражение нач цел х вещ у ввод х если х> 0 то у: =sqrt иначе y: =аbs (x) все вывод у кон
var s,a,b,c: string; begins: =’ фигуры’; writeln(‘введите названия трёх фигур’); read(a,b,c); writeln(s,’: ‘,a,’, ‘,b,’ и ‘,c); end.
Запись вспомогательных алгоритмов на языке Паскаль. Процедуры
Ответ разместил: Гость
Другие вопросы по: Информатика
- Ответов: 1
- 01.03.2019 00:00
- Ответов: 2
- 04.03.2019 03:10
- Ответов: 1
- 04.03.2019 05:50
- Ответов: 3
- 06.03.2019 21:00
- Ответов: 3
- 07.03.2019 20:00
- Ответов: 1
- 09.03.2019 00:20
Знаешь правильный ответ?
Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal. алг выражен.
Источник: vse-znaniya.com
Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal. алг выражение нач цел х вещ у ввод х если х> 0 то у: =sqrt иначе y: =аbs (x) все вывод у кон
с клавы например вводим 11.00, будильник прозвенит через 2 часа, следователь в 13.00.
вводим 9.00, будильник через 25 часов, будильник прозвонит в 11.00 следующего дня. также можно сделать и со всеми другими числом только на помнить что в сутках 23 часа.
Ответ разместил: Гость
нарисовать рисунок от точки одну клетку в право и в левое и получатся крест
Похожие вопросы:
Информатика, 29.04.2019 18:34
Имеется набор карточек с числами, среди которых есть 7. карточки перевернуты числами вниз. требуется определить какой по счету карточке сверху находится 7.
Паскаль с нуля [ч6]. Циклы. While, repeat-until, for.
Информатика, 14.05.2019 22:48
На с++! ! вводится определенное кол-во строк, требуется вывести строки в порядке уменьшения(от строки в которой больше всего символов , до той в которой меньше всего символов).
Информатика, 15.05.2019 04:09
Напишите примеры на языке программирования и виде блок схемы
Информатика, 16.05.2019 07:42
7. [5] ученик готовил реферат. в нем он использовал из книгия. и. перельмана «занимательная », выпущеннойиздательством «наука» (москва) в 1978 году. выбранный фрагментрасполагался на 29 странице.«четырьмя единицами, не употребляя никаких знаков действий, написать возможно большее число. ))укажите ссылку для данного фрагмента.8. [3] определите и пронумеруйте очередность созданияавтооглавления. в диалоговом окне «оглавление» выберите параметрыоглавления и нажмите ок. поместите курсор в пустой абзац в том месте, куда нужновставить оглавление. в меню вставка выберите пункт «ссылки», затем —«оглавление».
Информатика, 17.05.2019 16:27
Переделать с цикла while на цикл repeat! и ещё сделать блок схему по циклу repeat. вот программа которую нужно переделать: program while20; var n, n1: integer; begin write(‘введите число n’); readln(n); while (n> 0) and (n1 < >2) do begin n1: =n mod 10; n: =n div 10; end; if n1=2 then writeln(‘true’) else writeln(‘false’); end.
Источник: 5otvet.com