class_a, class_b, class_c = int(input("Сколько детей в А классе? ")), int(input("Сколько детей в Б классе? ")), int(input("Сколько детей в В классе? "))
print("Для класса А нужно купить " + str(round(class_a / 2)) + " парт.\nДля Б " + str(round(class_b / 2)) + " парт.\nДля В " + str(round(class_c / 2)) + " парт.")
Объяснения:
Нам известно, что за каждой партой могут сидеть два ученика.
Чтобы узнать, сколько парт нам нужно купить для каждого класса, мы за количество учеников.
Дальше мы делим количество учеников каждого класса на два и округляем функцией round(число).
Вторая задача:
km = int(input("Сколько км машина проезжает в день?"))
path = int(input("Какова длина маршрута?"))
print("Машина проедет путь за " + str(path/km) + " дня(ей).")
Объяснения:
По условиям задачи запрашиваем, сколько км проезжает машина за день и длину маршрута.
Далее мы делим длину маршрута на км/день и получаем ответ на нашу задачу.
1) var i,a:Integer; begin a:= 1; while a<>0 do begin Read(a); i+=a; end; WriteLn(i=10); end.
2) Можно через double. Но после 170! уже бесконечность. var n:Integer; var b:double; begin b:=1; Read(n); for var i:= 1 to n do b*=i; WriteLn('factorial '+n+' = '+b); end.
3) Работает как и с числами так и со строками. var arr:array of char; var a:String; var first,last:Integer; begin Read(a); arr:= a.ToCharArray(); for var i:= 0 to arr.Length-1 do begin first:=Pos(arr[i], a); last:=Pos(arr[i], a,first+1); if (first>0) and (last > 0) and (first<>last) then begin first:=99; break; end; end; if first = 99 then WriteLn('Содержит. Это число '+arr[last-1]) else WriteLn('Несодержит.'); end.
Первая задача:
class_a, class_b, class_c = int(input("Сколько детей в А классе? ")), int(input("Сколько детей в Б классе? ")), int(input("Сколько детей в В классе? "))
print("Для класса А нужно купить " + str(round(class_a / 2)) + " парт.\nДля Б " + str(round(class_b / 2)) + " парт.\nДля В " + str(round(class_c / 2)) + " парт.")
Объяснения:
Нам известно, что за каждой партой могут сидеть два ученика.
Чтобы узнать, сколько парт нам нужно купить для каждого класса, мы за количество учеников.
Дальше мы делим количество учеников каждого класса на два и округляем функцией round(число).
Вторая задача:
km = int(input("Сколько км машина проезжает в день?"))
path = int(input("Какова длина маршрута?"))
print("Машина проедет путь за " + str(path/km) + " дня(ей).")
Объяснения:
По условиям задачи запрашиваем, сколько км проезжает машина за день и длину маршрута.
Далее мы делим длину маршрута на км/день и получаем ответ на нашу задачу.
3ую задачу не решил, извиняюсь
var i,a:Integer;
begin
a:= 1;
while a<>0 do
begin
Read(a);
i+=a;
end;
WriteLn(i=10);
end.
2) Можно через double. Но после 170! уже бесконечность.
var n:Integer;
var b:double;
begin
b:=1;
Read(n);
for var i:= 1 to n do
b*=i;
WriteLn('factorial '+n+' = '+b);
end.
3) Работает как и с числами так и со строками.
var arr:array of char;
var a:String;
var first,last:Integer;
begin
Read(a);
arr:= a.ToCharArray();
for var i:= 0 to arr.Length-1 do
begin
first:=Pos(arr[i], a);
last:=Pos(arr[i], a,first+1);
if (first>0) and (last > 0) and (first<>last) then
begin
first:=99;
break;
end;
end;
if first = 99 then
WriteLn('Содержит. Это число '+arr[last-1])
else
WriteLn('Несодержит.');
end.