Задача 1.
var n,a: integer;
begin
writeln('Введите 4-х значное число');
readln(n);
a := n mod 10;
n := n div 10;
write(a);
write(n)
end.
Задача 2.
var n: integer;
begin
writeln('Введите расстояние в сантиметрах: ');
readln(n);
writeln('Расстояние в метрах = ',n div 100)
end.
Задача 3.
var a,b,c: integer;
begin
writeln('Введите 1 число: ');
readln(a);
writeln('Введите 2 число: ');
readln(b);
c:=1;
if a > b then
begin
c := a*a*a*a;
end
else
begin
c:= b*b*b*b;
end;
writeln('Четвертая степень наибольшего числа = ',c);
end.
ответ:"objName": "Stage",
"lists": [{
"listName": "dummy",
"contents": [],
"isPersistent": false,
"target": "Stage",
"x": 5,
"y": 5,
"width": 102,
"height": 202,
"visible": true
}],
"sounds": [{
"soundName": "pop",
"soundID": 0,
"md5": "83a9787d4cb6f3b7632b4ddfebf74367.wav",
"sampleCount": 258,
"rate": 11025,
"format": ""
}],
"costumes": [{
"costumeName": "backdrop1",
"baseLayerID": 3,
"baseLayerMD5": "790f7842ea100f71b34e5b9a5bfbcaa1.svg",
"rotationCenterX": 240,
"rotationCenterY": 180
}],
"currentCostumeIndex": 0,
"penLayerMD5": "279467d0d49e152706ed66539b577c00.png",
"tempoBPM": 60,
"children": [{
"objName": "Scratch Cat",
"scripts": [[53,
47.8,
[["procDef", "Fill %s with %s , %n times", ["list", "a", "n"], ["", "", 1], true],
["doRepeat", ["getParam", "n"], [["append:toList:", ["getParam", "a"], "dummy",
"sounds": [{
"soundName": "pop",
"soundID": 0,
"md5": "83a9787d4cb6f3b7632b4ddfebf74367.wav",
"sampleCount": 258,
"rate": 11025,
"format": ""
}],
"costumes": [{
"costumeName": "costume1",
"baseLayerID": 1,
"baseLayerMD5": "f9a1c175dbe2e5dee472858dd30d16bb.svg",
"rotationCenterX": 47,
"rotationCenterY": 55
},
{
"costumeName": "costume2",
"baseLayerID": 2,
"baseLayerMD5": "6e8bd9ae68fdb02b7e1e3df656a75635.svg",
"rotationCenterX": 47,
"rotationCenterY": 55
}],
"currentCostumeIndex": 0,
"scratchX": 0,
"scratchY": 0,
"scale": 1,
"direction": 90,
"rotationStyle": "normal",
"isDraggable": false,
"indexInLibrary": 1,
"visible": true,
"spriteInfo": {
Объяснение:
var
cost,kg:real;
begin
kg:= 0.01;
read(cost);
while ( kg <= 0.1) do begin
writeln(kg,' кг груш = ', kg*cost,' руб.');
kg := kg + 0.01;
end;
end.