Задать вопрос!

Задать вопрос!

Все категории

Леонтьева Ольга В...

3 года назад

7

Задание: Придумать сокращение: "Великий спор", по типу как мы сокращаем слово спасибо на спс. Картинка-это английский вариант со

кращения, помогите, пожалуйста.

Информатика

1 ответ:

Маринаккк [1]3 года назад

0 0

|) -
|) eл |/| к |/| |/| $п0p

Читайте также

Решите задачу Pascal: Цикл с предусловием Дана числовая последовательность : 8.2, 7.9, 7.6, … Найти сумму всех положительных чис

DamaDama [60]

program ll1;

var a, sum: real;

begin

a:=8,9;

sum:=0;

while a>0 do begin

sum:=sum+a;

a:=a-0,3;

end;

writeln(sum);

end.

0 0

3 года назад

Помогите найти ошибку. Срочно

Eva Abelha [10]

<u>Во-первых</u> - не имейте моду писать всё в одну строчку. Сейчас Вы в этом убедились, поскольку не можете найти ошибку. Объясняю, как надо:

if <условие> then
// оператор

Никаких if <условие> then // оператор, - забудьте про это навсегда.

Это Вам не тернарный оператор <условие> ? <оператор_при_true> : <оператор_при_false>.

<u>Во-вторых</u> - Вы засовываете логическую переменную в блок условия. Объясняю:

if D > 0 then
x1 := ... and x2 := ...

Вы не можете таким образом объявлять переменные. Каждое действие - в новой строке, а также должно оканчиваться точкой с запятой. Как должно быть написано правильно:

if D > 0 then
begin
x1 := ...
x2 := ...
end // здесь точка с запятой не нужна, поскольку далее следует блок else
else
if D = 0 then
x := ... // здесь тоже запятая не нужна
else
write('...');

<u>В-третьих</u> - обезопасьте себя и поставьте порядок операций в поиске корней дискриминанта:

x1 := (-b + sqrt(D)) / (2*a) // без скобок выполнится деление на 2, а потом умножение на a

Так же стоит сделать и с x := ...

Если ошибка не пропадает - пишите в комментариях её описание (ошибки).

0 0

4 года назад

Документ может существовать в виде ___________ и виде ___________ документа.

сергей капитонов

В виде файла и в виде текстовова

0 0

4 года назад

Помогите ПОЖАЛУЙСТА ! 2 задачи ! по теме условный оператор 1) написать программу для вычисления стоимости покупки однородного

сЛаСтёНкА3103 [2]

1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.

0 0

4 года назад

3. Выберите из списка информационные процессы (действия с информацией: (Несколько правильных ответов) а) разговор по телефону б)

Writer

Ответ: а),б)!!!!!!!!!!!!

0 0

4 года назад