Самый уродский способ:
string n = Console.ReadLine(); if (n == "1") Console.WriteLine("мы успешно сдали " + n + " экзамен"); Console.ReadKey(); if (n == "2") Console.WriteLine("мы успешно сдали " + n + " экзамена"); Console.ReadKey();
Adobe photoshop-(самый распространённый фото редактор, умеет рисовать смазывать дефекты, вырезать и вставлять и это только его основные функции более распространён у професионалах.)
Gimp-(умеет все тоже что и adobe более распространен в школах.)
Разрядность регистра-определяет колличество разрядов обрабатываемых процессром данных,а также характеристики программного обеспечения и команд выполняемых чипом.
var
i, n:integer;
price:real;
begin
n := 20;
price := 20.4;
for i := 1 to n do
writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');
end.
//вторая задача
var
i, f, n:integer;
begin
f := 453;
n := 10;
writeln('фунты граммы');
for i := 1 to n do
writeln(' ', i:2, i * f :11);
end.
//третья задача
var
i, n:integer;
k:real;
begin
n := 20;
writeln('Введите курс '); readln(k);
writeln('доллары рубли');
for i := 1 to n do
writeln(' ', i:2, i * k:13:2);
end.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
1)
begin
var x:=ReadInteger('Введите x->');
if x<3 then Writeln('y=',x+4)
else
if x>3 then Writeln('y=',x*x);
end.
Пример:
Введите x-> 2
y=6
2)
begin
var x:=ReadReal('Введите x->');
if x<4 then Writeln('y=',x*x:0:2)
else
if (x>4) and (x<5) then Writeln('y=',x+5:0:2)
else Writeln('y=',x*x*x:0:2);
end.
Пример:
Введите x-> 5
y=125.00
