// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);
begin
var s:=ReadlnString('>');
Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.
<u><em>Тестовое решение</em></u>
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3
Для обработки изображений с аналоговых камер и копирования их на ПК нужна плата видеозахвата. Для цифровых эта процедура не нужно. Обработать плёнку с обычного фотоаппарата можно при помощи сканера и фотографии перенести на ПК.
1 не понятно!
2 на питоне3
a = int(input())
b = int(input())
c = int(input())
v = a * b * c
if a > 9:
s = 6 * (a * a)
print(" ", s)
elif a <= 9:
print(" ", v)
3)python3
a =int(input())
b =int(input())
c =int(input())
h =int(input())
s = a * b *c *h
if s > 20:
k = a + b + c
print(" ", k)
else:
m = (b * c) - h
print(" ", m)
Вот <span>1234, 400, посмотри щас еще скину</span>
1. Оператор write будет выполнен 4 раза.
2. Значение S будет равно 12
Трассировочные таблицы - во вложении