1 =3,4*x+y
2 =(x+y)*z
3 =0,8*x+0,9*y-x*y
4 =(x+z)*y+0,1*z
5 =(x-z)*z+y*x
6 =(15*x^2-(7/12)*y)/(18*y+x^2)
7 =(40*y^3+(4/9)*x)/(6*x^2-18*x*y)
8 =(30*(x^3-(5/6)*y))/(5*(x^3-6*y))
Import random
a=int(input())
b=int(input())
arr=[]
for a in range(0, 5):
arr.append(random.randint(a, b))
for a in range(0, 5):
arr.append(arr[a]*arr[a])
for a in arr:
print(a)
//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array[1..12] of integer;
i,s:int64;begin;
s:=1;
for i:=1 to 12 do
begin;
readln(ar[i]);
if ar[i]>50 then s*=ar[i];
end;
writeln(s);
<span>end.
Пример ввода:
1 2 3 4 5 6 7 50 50 51 51 <span>70
Пример вывода:
182070
</span></span>
Program p1;
var
a, b, c, s: real;
begin
Writeln('Вычислите S поверхности параллелепипеда.');
Writeln('Введите исходные данные:');
Write('Длина(см)? '); Readln(a);
Write('Ширина(см)? '); Readln(b);
Write('Высота(см)? '); Readln(c);
s := 2 * (a * b + b * c + c * a);
Writeln('Площадь поверхности: ', s, ' кв.см.')
end.
<u>Тестовое решение:</u>
Вычислите S поверхности параллелепипеда.
Введите исходные данные:
Длина(см)? 9
Ширина(см)? 7.5
Высота(см)? 5
Площадь поверхности: 300 кв.см.
program p2;
var
ct,ck,s:real;
kt,kk:integer;
begin
Writeln('Вычисление стоимости покупки');
Writeln('Введите исходные данные:');
Write('Цена тетради(руб.)? '); Readln(ct);
Write('Количество тетрадей? '); Readln(kt);
Write('Цена карандашей(руб.)? '); Readln(ck);
Write('Количество карандашей? '); Readln(kk);
s:=ct*kt+ck*kk;
Writeln('Стоимость покупки: ',s:0:2,' руб.')
end.
<u>Тестовое решение:</u>
Вычисление стоимости покупки
Введите исходные данные:
Цена тетради(руб.)? 2.75
Количество тетрадей? 5
Цена карандашей(руб.)? 0.85
Количество карандашей? 2
Стоимость покупки: 15.45 руб.