используется div (k;(10**n))=ответ
Var
shop,market:real;
begin
shop:=2500;
market:=shop*0.67;
writeln(shop-market);
end.
1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "<span>writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
</span>program prim_a;
var m, n, k: integer;
begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
<span>end.
</span>4. a)
program plowad;
var
a, h: real;
begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var
a, b: integer;
begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
<span>end.</span>
Текст программы на языке Python:
#!/usr/bin/env python
# encoding: utf-8
#def ocenki():
""" В спортивных соревнованиях 10 судей выставили свои оценки
спортсмену. Итоговая оценка определяется так: самая наибольшая и
самая наименьшая оценки из общей суммы удаляются (если таких оценок
несколько, то удаляется только одна из них), затем среди оставшихся
подсчитывается среднее арифметическое. Написать программу, которая
позволила бы по известным оценкам судей автоматически выставлять
итоговую оценку спортсмену."""
print "Задача 1."
# Введем 10 оценок судей в память
a = []
for i in range(10):
a.append(input("Очередная оценка спортсмену: "))
# Отсортируем оценки по возрастанию:
a.sort()
# Удалим из списка минимальную оценку
a.pop(0)
#Удалим максимальную оценку
a.pop(-1)
# Напечатаем на экране среднее арифметическое (оценку)
print "Оценка спортсмену: ",
print float(sum(a)) / len(a)
print "-"*30, "\n\n\nЗадача 2."
# Завершение работы
#def chisla():
""" Напишите программу поиска четырехзначного числа,
которое при делении на 133 дает в остатке 125,
а при делении на 134 дает в остатке 111."""
# Резервируем место для найденных чисел, при делении которых
# на 133 в остатке получается 125
a = []
# будем перебирать все множители от 0 до числа, которое при
# умножении на 133 даст 10000. Нам больше не надо.
for i in range(0, 10000/133):
# Добавим число, которое при делении на 133 дает в остатке 125
# в список
a.append(i * 133 + 125)
# В список попали трехзначные числа и, может быть, и пятизначные.
# Отфильтруем его, оставив в нем только четырехзначные
a = filter(lambda x: 999 < x < 10000, a)
# Теперь рассмотрим числа, которые при делении на 134 дают в
# остатке 111.
for i in range(0, 10000/134):
# Если нам попадется число, которое уже есть в списке а, то
# напечатаем его
if (i * 134 + 111) in a:
print i * 134 + 111
# Вот и всё. Программа завершила работу
В приложении результат работы программы
Var
S:string;
B:boolean;
i:integer;
Begin
B:=false;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i] = 'в' then
if S[i+1] = 'а' then B:=true;
if B then Write('Есть')
else Write('Нет')
End.
