Объяснение:
var a,b:real; c,e:integer;
begin
writeln('Введите два целых числа');
readln(a);
// нет ввода второго целого числа. надо написать readln(b);
c:=a/b; //ошибка! при делении может получится дробное число, а с указано как целое
d:=a mod b; //переменная d не описана в разделе var
e:=c+d;
writeln(c);
writeln(d);
writeln(e);
end.
Готовая программа:
var c, e:real; a,b,d:integer;
begin
writeln('Введите два целых числа');
readln(a);
readln(b);
c:=a/b;
d:=a mod b;
e:=c+d;
writeln(c);
writeln(d);
writeln(e);
end.
from random import randint
class G:
def __init__(self):
self.wins = 0
def menu(self):
print("stop - для остановки решения\nEnter продолжение.")
while 1:
if self.wins > 5:
print("Ты хорошо справился, думаю на сегодня хватит")
G.result(self)
break
a = input(": ")
if a == "stop":
G.result(self)
break
elif a == "":
G.game(self)
else: pass
def game(self):
n1,n2 = randint(1,100),randint(1,100) # примеры от и до
print(f"Сколько будет: {n1} + {n2}?")
if int(input("ответ: ")) == n1+n2:
print("Верно")
self.wins += 1
else:
print("Неверно")
if self.wins != 5+1:
print("Продолжим? Нажите Enter ля решения другого примера, введите stop для окончания")
def result(self):
print("игра остановлена")
print(f"Количество верных ответов: {self.wins}")
if self.wins > 5:
print("Молодец!")
else:
print("Потренируйся ещё")
a = G()
a.menu()
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив вещественных чисел. каждый отрицательный элемент заменить на его абсолютную величину
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.
Пример
n= 13
5.1 -6.3 3.1 -6.5 -0.7 -4.3 5.1 1.5 -8.8 -4.2 4.3 -4.2 -5.9
5.1 6.3 3.1 6.5 0.7 4.3 5.1 1.5 8.8 4.2 4.3 4.2 5.9