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

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

July 2022 1 10 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

Тригонометрия. 3е задание, пожаааалуйста!...

Язык Паскаль. Написать на языке программирования у=sqrt(x-4)...

ПОЖАЛУЙСТА. СРОЧНО. СЛОЖНО. На языке Паскаль, вроде, написать надо...

Алгебра. 10 класс. Пожалуйста, помогите с:...

словосочетанием можно заменить слова: наука, искусства, книги, музыка?...

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

Helpful Links

Helpful Social