Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.
4 нуля находятся в твоём десятичном числе 172,25
Нет, не могут.
Несколько выходят из блоков циклов и условия.
Параметры моделирования: 1. Классификация текстового документа 2. Основные понятия 3. Создание текстового документа Ход работы 1. Текстовый документ: обычный текст-страница, абзац, строка, слово, символ Таблица – строка, столбец, клетка Программный текст – строка , символ Внедренные объекты – рисунок, электронная таблица, диаграмма, другие объекты 2. Основные понятия и действия - строка заголовка, строка меню, стандартная панель, панель форматирования, маркеры отступа, линейка, ползунок, курсор, строка состояния, рабочая область, полоса прокрутки. 3. Создание документа – запуск программы, набор текста, форматирование, печать.
// составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4
var i,x: word;
a : array [1..10] of integer;
Begin
writeln ('Введите 10 целых чисел');
for i:=1 to 10 do
Begin
write (i,' число ');
readln (a[i]);
end;
writeln;
for i:=1 to 10 do
Begin
x:=a[i] mod 4;
if x<>0 then writeln (i,' элемент таблицы не кратен 4');
end;
<span>End.</span>