Помогите, пожалуйста. Совсем не разбираюсь в этой теме.. Created by Puka. informatika-ru

Помогите, пожалуйста. Совсем не разбираюсь в этой теме...

July 2022 1 4 Report

Помогите, пожалуйста. Совсем не разбираюсь в этой теме.

Answers & Comments

allangarsk Var s,t:string;
Begin
Write('Введите имя Вашего кота!');
Read(t);
if t = 'Барсик' then s:= 'Кис-Кис'elses:= 'Брысь!';
write(s);
end.

Так пойдет!

1 votes Thanks 1

Puka Мне нужно все
Но спасибо

allangarsk var y,x:real;
Begin
Write('Введите значение х');
Read(x);
if x >3 then
y:= sqrt(x-4)
else
writeln('х должен быть больше 3');
write(y);
end.

allangarsk var y,x:real;
Begin
Write('Введите значение х');
Read(x);
if x >= -1 then
y:= 2
else
y:= 2 / sqr(x);
write(y);
end.

Answers & Comments

trigonometriya 3e zadanie pozhaaaalujsta

yazyk paskal napisat na yazyke programmirovaniya usqrtx 4

pozhalujsta srochno slozhno na yazyke paskal vrode napisat nado

algebra 10 klass pozhalujsta pomogite s

slovosochetaniem mozhno zamenit slova nauka iskusstva knigi muzyka

рекомендуемые вопросы

Helpful Links

Helpful Social