1.
var a: real;
x,y: integer;
begin
readln(x,a,y);
writeln('1 kg konfet stoit ', a/x:1:2);
writeln(y,' kg konfet stoyat ', a/x*y:1:2);
readln;
end.
2.
var a,s,p: integer;
begin
readln(a);
s:=a mod 10 + a div 10;
p:=(a mod 10)*(a div 10);
writeln(s);
writeln(p);
readln;
end.
3.
var a,b: integer;
begin
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln(b);
readln;
end.
Это если без циклов.
Цикл — разновидность управляющей конструкции в высокоуровневых языках программирования, предназначенная для организации многократного исполнения набора инструкций.
Команда цикла в паскале:
1)for x to n do
begin
end.
2) while < условие> do <оператор 1>; {Пока … делай ….}
3)repeat { повторяй … }
<оператор 1>;
< оператор 2>;
…
until {до…} <условие>
2.
Условие цикла - это то, где мы объявляем задачу:
"for 1 to 2 do"
Тело цикла -Последовательность инструкций, предназначенная для многократного исполнения, называется телом цикла.
пример:
begin
(действие)
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a[1:]; a.Println;
end.
<u>Пример</u>
n= 13
33 43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
43 -9 -47 9 22 -49 29 11 -50 -9 -34 -15
<u>Замечание:</u> использован динамический массив, так что он просто станет на один элемент короче.
Ввод: x ^ y С/П.
П1 -> П0 x=0 07 0 С/П ИП1 x=0 12 0 С/П
ИП1 x>=0 22 ИП0 x>=0 20 1 С/П 2 С/П
ИП0 x<0 27 3 С/П 4 С/П
С учётом моментов, когда точки лежат на осях.
Var x,y,b:real;
begin
writeln ('Введи 2 вещественных числа');
readln (x,y);
b:=x;
x:=y;
y:=b;
writeln (x,y);
realdn;
end.