program summa;
var
i, n:integer;
s, k:real;
begin
writeln('введите число n=');
read(n);
s:= 0;
k := 0;
for i := 1 to n do
begin
k:= k + sin(i);
s:= s + 1/k;
end;
writeln('Сумма S= ',s:0:2);
readln;
end.
Все формулы прописываем для товара А и далее растягиваем
Искомое значение - буква необходимого нам товара
Таблица - таблица, где прописаны товар и его цена/товар и его количество, выделяем без шапочки таблицы, не забывая поставить знак $, так как диапазон изменяться не будет
Номер столбца/номер строки - у нас второй столбец, вторая строчка, поэтому 2
Интервальный просмотр - Ложь, так как значения не отсортированы по возрастанию, нам нужно точное совпадение
Стоимость находим перемножая цену и количество
Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.
program raf105;
var V,t,x: integer;
begin
write('Скорость поезда V(км/час.) = ');
readln(V);
write('Время в пути t(час.) = ');
readln(t);
x:= V*t;
writeln('Пройденное расстояние: ',x,' (км.)');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>
