Задача A. 80236. Докажи, что математик! Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт После неудачного выступления на ACM ICPC 2018-2019, NEERC - Northern Eurasia Finals, коман- да Хранители335 решила подтянуть свои знания математики, ибо на этом контесте они не решили элементарную задачу по теории чисел. Сегодня один из членов команды придумал задачу, где надо просто определить является ли площадь треугольника целочисленной. Ваша задача состоит в том, чтобы этим ребятам.
Формат входных данных В первой строке записаны три целых числа a, b и c (1 ⩽ a, b, c ⩽ 5000) - длины сторон загаданного треугольника.
Формат выходных данных Выведите единственное число — площадь треугольника если она является целочисленной. В остальных случаях выведите -1.
while n<+1000: # Пока n не станет четырехзначным числом алгоритм не запуститься.
n=n+1
while n<10000 and n>999: # Здесь прописанны условия для n
nlist=list(str(n)) # В данной строчке мы делем число на отдельные цифры
c=0 # Не обращай внимания это нужно для кода
v=len(nlist)
while c<v:
p=nlist.count(nlist[c]) # Здесь программа находит сколько одинаковых цифр в числе, и если их три, то пишет его
if p==3:
print(n)
c=c+1
n=n+1
Я согласен, что код возможно сильно сыроват и не совсем отвечает требованиям, но я только недавно начал изучать программирование, да и к тому же думаю, что вы на примере этого разберётесь, что делать дальше. Надеюсь я вам
n=0
while n<+1000: # Пока n не станет четырехзначным числом алгоритм не запуститься.
n=n+1
while n<10000 and n>999: # Здесь прописанны условия для n
nlist=list(str(n)) # В данной строчке мы делем число на отдельные цифры
c=0 # Не обращай внимания это нужно для кода
v=len(nlist)
while c<v:
p=nlist.count(nlist[c]) # Здесь программа находит сколько одинаковых цифр в числе, и если их три, то пишет его
if p==3:
print(n)
c=c+1
n=n+1
Я согласен, что код возможно сильно сыроват и не совсем отвечает требованиям, но я только недавно начал изучать программирование, да и к тому же думаю, что вы на примере этого разберётесь, что делать дальше. Надеюсь я вам
//Задача #1
begin
var a,b,c: integer;
write('Введите ваш возраст: '); readln(a);
write('Введите время, проведенное за компьютером (в минутах): '); readln(b);
if b<0 then else
case a of
6..8: c:=15;
9..11: c:=30;
12..15: c:=45;
16..17: c:=60;
else write('Вам ',(a<6)? 'меньше 6':'больше 17-ти',' лет'); exit;
end;
write((c-b>0)? 'Вам осталось находиться за компьютером '+(c-b).ToString+' минут':'Ваш сеанс закончился '+abs(c-b)+' минут назад');
end.
//Задача 2
var
a:integer;
b:real;
begin
var N: array [1..4] of (string,real);
N[1]:=('АИ-92',42.30);
N[2]:=('АИ-95',45.30);
N[3]:=('АИ-98',53.71);
writeln('В наличии имеется: ');
for var L:=1 to 3 do
println(L+') ',N[L].Item1,' ',N[L].Item2,' руб/л');
write('Введите номер марки бензина (1-3): ');readln(a);
if (a>=1) and (a<=3) then begin
writeln('Вы выбрали бензин ',N[a].Item1);
write('Введите количество литров: ');readln(b);
write((B<0)? 'Указано отрицательное количество литров':('Сумма вашей покупки: '+N[a].Item2*b+' рублей'))
end;
end.
//Задача 4
begin
var K:char;
var N: array ['A'..'D'] of real;
for var L:='A' to 'D' do
begin
write('Введите расстояние до города ',L,' (км): ');readln(N[L]);
end;
write('В какой из городов вы направляетесь? ');readln(K);
K:=K.ToUpper;
write('Вам понадобится ',(N[K]/100)*9,' литров бензина');
end.
Примечание:
У задачи №3 слишком мало вводных параметров