korj8
?>

Запиши математическое выражение (6+t)2 на языке Паскаль. (При записи ответа используй прописные буквы

Информатика

Ответы

fil-vasilij90

writeln((6+t)*2);

Объяснение:

skryabinamaria
Есть кнопочки антена,
Звонит в другом конце света,
Знаменитый, как айфон,
Получается ... (телефон)

Четыре ножки, одна доска,
На нём стихи пишу гордо я!
Его ставят на любой пол,
Это создание называется ... (стол)

Музыка, игры, всё, что желаешь!
Туда и мультфильмы перекачаешь,
Информационного века моды писк,
Иначе зовётся лазерный ... (диск)

Туда запишешь всё, что надо,
Мысли, уроки, рисуй что попало!
В этой брошюрке много страничек,
Что это? Правильно! ... (записная книжка)

Она кликнуть на ссылку,
Она также может скушать весь сыр!
О боже, что это? Чудище кыш!
Живёт в норе, серая ... (мышь)

Мы в понедельник туда все идём,
Много учебников туда принесём!
Наш огород знаний, она прополола,
Наша прекрасная, любимая ... (школа)

P.S. Писал сам
M10M11M12
Var
a:array[1..10] of integer;
cnt1, cnt2, i:integer;
begin
 For i:= 1 to 10 do
   Read(a[i]);
 for i:= 1 to 5 do
  if a[i] > 0 then cnt1 := cnt1 + 1;
 for i:= 6 to 10 do
  if a[i] > 0 then cnt2 := cnt2 + 1;
 if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково');
 if cnt1 > cnt2 then Writeln('Количество пол-х элементов больше в первой половине');
 if cnt1 < cnt2 then  Writeln('Количество пол-х элементов больше во второй половине');
end.

Пример:

-1 -2 3 5 0 4 6 7 -2 -5
Количество пол-х элементов больше во второй половине

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запиши математическое выражение (6+t)2 на языке Паскаль. (При записи ответа используй прописные буквы
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Yelfimova-andrei
maslprod
rigina82
ooofishai4064
Abespal
gurman171
yelenaSmiryagin
natalili32
club-pushkin
Reginahappy
balabina-Olesya
Vlad Petr531
morozov1605
amramzi
Dmitrievich-Telishev