Var x, c:integer; a:real; begin write('Введите число: '); readln(c); write('Введите количество процентов: '); read(x); writeln('%'); a:=c/100*x; writeln('ответ: ',x,'% от числа ',с,' равно ',a); end.
1) файл паскаля приложен. 2) код на c# static void Main(string[] args) { int a, b; a = Convert.ToInt32(Console.ReadLine()); b = Convert.ToInt32(Console.ReadLine()); if (a > 2) { Console.WriteLine(a / 2); Console.WriteLine(b - 1); } } 3) Код на vb dim a as integer = 0 dim b as integer = 0 a = cint(console.readline()) b = cint(console.readline()) if a > 2 then console.writeline( a / 2) console.writeline(b - 1) end if
x, c:integer;
a:real;
begin
write('Введите число: ');
readln(c);
write('Введите количество процентов: ');
read(x);
writeln('%');
a:=c/100*x;
writeln('ответ: ',x,'% от числа ',с,' равно ',a);
end.