var i:integer;
begin
for i:=1 to 9 do
writeln(2*i);
end.
Будем опираться на версию программы PascalABC.NET 3.8.2
Применим метод count, параметрами метода в данном случае выступают переменная типа char и условие, в нашем примере условие такое: символ c равен '%'. В примере строка s содержит три символа '%', поэтому ответ 3.
Программа решения на языке Паскаль:
var s:string;c:char;
begin
s:='Ив%%ан%?№';
writeln(s.Count(c->c='%')); {ответ: 3}
end.
Пусть дано логическое уравнение:
Уравнение зависит от четырех логических переменных: A, B, C, D. Необходимо найти все возможные значения переменных, при которых выражение = 1 (истина)
Задача. Известна длина в сантиметрах. Преобразовать длину в метры и километры.
Как известно, в 1 метре 100 см, а в 1 км 1000 м, значит для вычисления метров необходимо длину в см разделить на 100, а затем полученное значение разделить на 1000.
Программа решения задачи на языке Паскаль
Var d:integer;k,m:real;
bgin
readln(d);
m:=d/100;
k:=m/1000;
writeln('длина в метрах ',m,' длина в километрах ',k);
end.
Программа решения задачи на языке Python
d = int(input())
m = d / 100
k = m / 1000
print('длина в метрах',m,' длина в километрах',k)
|
Как найти расстояние между двумя точками (язык Паскаль) Читать |
Одновременно навстречу друг другу выехали два автомобиля. Их скорости соответственно M и N км/ч. Расстояние между автомобилями в начальный момент времени составляло X км. Через сколько часов они встретятся? Читать |
Рассчитать цену товара в долларах. Программа на языке Паскаль и Python Читать |