Открыть шкаф с кастрюлями
Пока не найдётся подходящая кастрюля, искать кастрюлю
Заглянуть в кастрюлю. Если не пустая - выложить и/или помыть
Открыть кран
Подставить кастрюлю
Закрыть кран, когда наберётся вода
Поставить на плиту К.
Забросить пельмени
Включить плиту
Ждать
<span>[Опционально] Забыть выключить</span>
Uses crt;
const
n=15;
var
a:array[1..n]of real;
i,k:integer;
s:real;
begin
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln;
clrscr;
for i:=1 to n do
begin
write(a[i]:6:2);
if a[i]=s then
inc(k);
end;
writeln;
if k<>0 then
writeln('k: ',k)
else writeln('Нет равных')
end.
Тут обратное условие Фано
Условие фано :никакой код не был началом другого кода.
Обратное условие Фано: никакой код не был окончанием другого кода.
ну вроде бы так, если все верно, то отметь как лучший ответ, буду благодарна
есть несколько программ, и все они должны подойти, смотри картинки
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
Количество слов на 1 больше чем пробелов.
var
s:string;
i,r:integer;
begin
readln(s); //ввод строки
i:=1;
while i<=length(s) do begin
if s[i]=' ' then r:=r+1;
i:=i+1;
end;
writeln(r+1);
readln;
end.
Задача № 6
var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; sr:real;
beginrandomize;write('Введите n: ');readln(n);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10);write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j then beginwrite(r[i,j]:4);sum:= sum + r[i,j];end elsewrite(' ':4);end;writeln;end;sr:= sum / n;writeln;writeln('sr:=', sr);
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif sr < r[i,j] thenk:= k + 1;end;end;writeln('k:=', k);end.