for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];
writeln ('сумма равна ', sum);
readln;
end.
программу проверил все работает
Ответ дал: Гость
а) наименование товаров, цена за единицу товара, количество каждого товара
б) общая сумма покупки, сумма денег переданная продавцу
в) программа телепередач, название фильма
г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)
Ответ дал: Гость
бег-бог-лог-лаг-шаг
бант-кант-карт-кара-кора-коса
шар-бар-бам-бум-кум-куб
муха-мура-фура-фора-кора-корн-коан-клан-клон-слон
миг-маг-мак-бак-бек-век
Ответ дал: Гость
первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)
результат выполнения
аб2в457где245*ж0247025020
2)
var s, r: string; i: integer;
begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.
Популярные вопросы