begin
var a := SeqWhile(5, x -> x + 5, x -> x <= 90).ToArray;
a.Println;
end.
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Ну этот кусок может выглядеть так:
---------------
t:= A;
A:=B;
B:=C;
C:=t;
---------------
Т.к 1 Гб = 1048576 Кб, то 1048576 кб * 80 = 83886080 Кб // Находи кол-во Кб в 80 Гб
83886080/1440=58254.2222222 // Находим кол-во дискет нужных для записи 80 Гб.
58255*20г=1165100 г = 1165,1 кг = 1,1651 т // Находим вес дискет.
<span>Ответ: 1,1651 тонны. </span>
Var x1, y1, x2, y2, x3, y3, P: real;
function length(x1: real; y1: real; x2: real; y2: real): real;
begin
length := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
begin
read(x1, y1, x2, y2, x3, y3);
P := length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
writeln('Perimeter is ', P);
<span>end.
------------------------------
#include <cmath>
#include <iostream>
float length(float x1, float y1, float x2, float y2)
{
return pow((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2), 0.5);
}
int main()
{
float x1, y1, x2, y2, x3, y3, P;
std::cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
P = length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
std::cout << "Perimeter is " << P;
<span>}</span></span>
