1. var x:integer; y:real; begin write('Введите значение аргумента "X" : '); readln(x); y:=3*cos((5*x)); writeln('Значение функции "Y" = ',y); readln; end.
2. var x,b:integer; begin write('Введите количество молока, полученного за день, л : '); readln(x); write('Введите количество дней : '); readln(b); writeln('Количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.
3. var a,b,c:integer; begin write('Введите двузначное число: '); readln(a); b:=a div 10; c:=a mod 10; writeln(b,#10,c); end.
4. var b:integer; a:longint; begin write('Введите целое число: '); readln(a); b:=a div 100 mod 100; writeln(b); readln; end.
5. var a,b:integer; begin write('Введите числа : '); readln(a,b); if a and b mod 2=0 then writeln(a+b); if a and b mod 2<>0 then writeln(a*b); readln; end. {Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}
function СуммаКвадратовЦифр(Число: integer): integer;
begin
Result := 0;
while Число > 0 do
begin
Result += Sqr(Число mod 10);
Число := Число div 10
end
end;
function ЧислоПервоклассное(Число: integer): boolean;
begin
Число := Abs(Число); // защита от злобных буратинок
var L:=new SortedSet<integer>;
L.Add(Число);
repeat
case Число of
0, 2, 3:
begin
Result := False;
Exit
end;
1:
begin
Result := True;
Exit
end;
else
begin
Число := СуммаКвадратовЦифр(Число);
if L.Contains(Число) then
begin
Result:=False;
Exit
end
else L.Add(Число)
end
end
until False // бесконечный цикл
end;
begin
var (НижняяГраница, ВерхняяГраница) := ReadInteger2;
var Количество := 0;
for var ОчередноеЧисло := НижняяГраница to ВерхняяГраница do
if ЧислоПервоклассное(ОчередноеЧисло) then Inc(Количество);
Количество.Println
end.
1 10020var
x:integer;
y:real;
begin
write('Введите значение аргумента "X" : ');
readln(x);
y:=3*cos((5*x));
writeln('Значение функции "Y" = ',y);
readln;
end.
2.
var
x,b:integer;
begin
write('Введите количество молока, полученного за день, л : ');
readln(x);
write('Введите количество дней : ');
readln(b);
writeln('Количество молока, полученного за заданный промежуток времени = ',x*b);
readln;
end.
3.
var
a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b:=a div 10;
c:=a mod 10;
writeln(b,#10,c);
end.
4.
var
b:integer;
a:longint;
begin
write('Введите целое число: ');
readln(a);
b:=a div 100 mod 100;
writeln(b);
readln;
end.
5.
var
a,b:integer;
begin
write('Введите числа : ');
readln(a,b);
if a and b mod 2=0 then
writeln(a+b);
if a and b mod 2<>0 then
writeln(a*b);
readln;
end.
{Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}