Язык программирования: Pascal ABS.NET /////////////////////
Program composition;
Var a, b, P: integer;
begin
WriteLn ('Введите первое число');
Write ('a=');
ReadLn (a);
WriteLn ('Введите второе число');
Write ('b=');
ReadLn (b);
P:= a*b;
WriteLn ('Произведение:',P);
end.
Id 1
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
Var
s, s1: string;
i: integer;
begin
writeln('введите предложение ');
readln(s);
repeat
i := pos(' ', s);
delete(s, i, 1);
until i = 0;
s1 := '';
for i := length(s) downto 1 do
s1 := s1 + s[i];
if s = s1 then
writeln('это палиндром')
else
writeln('не палиндром');
end.
Var
X,b:real;
Begin
WriteLn('y=7x/(3x-12)');
Write('X = ');ReadLn(X);
WriteLn('Y = ',7*X/(3*X-12));
WriteLn;
WriteLn('y=4x/(2,6-b)');
Write('X = ');ReadLn(X);
Write('b = ');ReadLn(b);
WriteLn('Y = ',4*X/(2.6-b));
End.
Процессор
Материнская плата
Блок Питания
Жесткий диск
Оперативная Память
Звуковая карта
Видео карта
Система охлаждения