Практическая работа за компьютером
или ноутбуком
Работа с текстом.
1. Наберите текст по образцу
Больничная палата No6
1.Иванов Иван Петрович
2.Петров Александр Иванович
3. Сидоров Павел Иванович
2. Создайте три текстовых документа,назвав их фамилиями пациентов.
3Создайте гиперссылки История болезни для каждого пациента. По этим гиперссылкам будут открываться файлы с текстами историй болезни.
4.Создайте сноску для каждого пациента, в сноске запишите место жительства и телефон
var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.