Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
S:=S+N;
if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')')
else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')')
End.
Если не правельно,извините,но я думаю что,это сообщение правельльно читается-РОЖДЕНОЕ.Этотвопрос у меня был и это ответ по моему мнению правельный.
Программа на С:
int main(){
float temp = receiveTemperature();
if(temp > 60){
printf("Пожароопасная ситуация");
}
}
Блок-схема:
<u>(начало)
</u> |
<u>/temp/
</u> |
<u>|temp = receiveTemperature()|
</u> |
<u><temp > 60></u>
| да
+--------------<u>/"Пожароопасная ситуация"/</u>--+
| нет |
+-------------<u>(конец)</u>---------------------------------+
Var
t,m:string;
i:integer;
begin
readln(t);
m:='нки';
for i:=1 to length(t) do
begin
if ((t[i]=' ') or (t[i]=',') or (t[i]='.'))
and((copy(t,i-4,4)='онок') or (copy(t,i-4,4)='енок'))
then
begin
delete(t,i-3,3);
insert(m,t,i-3);
end;
end;
writeln(t)
<span>end.</span>
Программа составлена правильно, но можно сделать компактнее
<span>Program Chislo;</span>
<span>Uses Crt;</span>
<span>Var x,y,z,p: integer;</span>
<span>Begin</span>
<span>Clrscr;</span>
<span>WriteLn ('Введите первое число');</span>
<span>ReadLn (x);</span>
<span>WriteLn ('Введите второе число');</span>
<span>ReadLn (y);</span>
<span>WriteLn ('Введите третее число');</span>
<span>ReadLn (z);</span>
<span>if x>y then p:=x else p:=y;</span>
<span>if x>z then p:=x else p:=z;</span>
<span>if y>z then p:=y else p:=z;</span>
<span>WriteLn ('Наибольшее число:',p);</span>
<span>End.</span>
<span>Я вырезал</span>
<span>If y>x then p:=y else p:=x;
If z>x then p:=z else p:=x;
If z>y then p:=z else p:=y;</span>
потому что это бесмысленный движения, а так задача работает.
Вопросы, неточности в ЛС
