М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Лина14881
Лина14881
28.09.2021 04:34 •  Информатика

Переведите из Python в Pascal:
a = int(input())
b = int(input())
s = 0
for i in range(a, b + 1):
if i % 2 == 0:
s += i
else:
s -= i
print(s)

👇
Ответ:
Польбощь
Польбощь
28.09.2021

var a, b, s, i: integer;

begin

read(a, b);

s := 0;

for i := a to b do

   if (i mod 2 = 0) then

       s := s + i

   else

       s := s - i;

writeln(s);

end.

4,7(71 оценок)
Открыть все ответы
Ответ:
Babay28
Babay28
28.09.2021

К моменту завершения K-го урока пройдёт K собственно уроков и (K - 1) перемена. Вычисляем продолжительность в минутах, делим с остатком на 60 - число минут в часе - и получаем количество часов и минут, которые пройдут с начала занятий. Остаётся прибавить к этому 8 часов - время начала занятий - и вывести ответ.

python 3:

MINS_IN_HOUR = 60

mins_in_class, mins_in_break = 45, 5

start_hour = 8

k = int(input())

total_mins = k * mins_in_class + (k - 1) * mins_in_break

hour, mins = divmod(total_mins, MINS_IN_HOUR)

print(hour + start_hour, mins)

4,7(17 оценок)
Ответ:
ПУТИН222
ПУТИН222
28.09.2021
Program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do numb[i]:=random(101);// задает последовательность

for i:=1 to 100 do
begin
write(',',numb[i]); // вывод на экран последовательность(можно удалить)
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
end;
if f=0 then writeln('Yes') else writeln('No');

end.

program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do begin
numb[i]:=random(101);// задает последовательность
write(' ',numb[i]);//вывод на экран, можно удалить
end;
writeln;
i:=0;
repeat
i:=i+1;
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
until i<100;
if f=0 then writeln('Yes') else writeln('No');

end.
4,4(75 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ