leradorozhnyak

08.06.2021 23:04

Информатика

Есть ответ 👍

Впаскале: 1) найти количество положительных целых чисел от 45 до 215; 2) найти сумму положительных целых чисел от -50 до 200, кратных 5 и 8; 3) найти сумму и количество отрицательных четных целых чисел, введенных с клавиатуры. печать результата по вводу числа 0.

297

377

Посмотреть ответы 2

Ответы на вопрос:

wasdas390wasdas390

Информатика

4,7(93 оценок)

//приунываю //pascal abc.net v3.1 сборка 1172 //1 begin writeln(215-45+1); end. //2 var i,s: integer; begin for i: =-50 to 200 do if (i mod 5=0) and (i mod 8=0) and (i> 0) then s: =s+i; writeln(s); end. //3 var i,s,a: integer; begin a: =1; repeat if (a< 0) and (a mod 2=0) then begin inc(i); s: =s+a; end; read(a); until a=0; writeln('sum=',s,' and number=',i); end.

анна2264

Информатика

4,4(48 оценок)

язык программирования любой?

пишу на Python:

s = str(input())

s = sorted(s[:len(s)-1].split(', '))

for word in s:

print(word, ' ', end='')

Pascal:

var s, copy_s, word_s:string;

i, n, count:integer;

a:array of string ;

begin

count:=0;

write('Введите перечисление слов через запятую без пробелов, в конце поставьте точку: ');

readln(s);

copy_s:= s;

while pos(',', copy_s) > 0 do begin

n:= pos(',', copy_s);

delete(copy_s, n, 1);

count:=count+1;

end;

count:= count + 1;

SetLength(a, count);

for i:=1 to count-1 do begin

n:= pos(',', s);

word_s:= copy(s, 1, n-1);

delete(s, 1, n);

a[i]:=word_s;

end;

word_s:= copy(s, 1, length(s)-1);

a[count]:= word_s;

for i:=1 to count-1 do

if a[i] > a[i+1] then begin

word_s:=a[i];

a[i]:=a[i+1];

a[i+1]:=word_s;

end;

for i:=1 to count do

writeln(a[i]);

end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.