Задачи на паскале в объяснении
Объяснение:
задача 1
program z1;
var x, f: real;
begin
writeln('введите х');
readln(x);
if x>=0 then f:=sqrt(x*x*x)
else f:=sqr(x)/(sqr(x)-2);
writeln('f(x)=',f:10:2);
readln;
end.
задача 2
program z2;
const n=5, m=5;
var a:array[1..n, 1..m] of integer;
i, j, s, p: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(11)+10;
write(a[i,j]:5);
end;
writeln;
end;
p:=1;
s:=0;
for j:=1 to m do p:=p*a[1,j];
for i:=1 to n do s:=s+a[i,1];
writeln('сумма элементов первого столбца=',s);
writeln('произведение элементов первой строки=',p);
readln;
end.
Задача 3
program z3;
const n=5; m=5;
var a:array[1..n, 1..m] of integer;
i, j, p, max, min: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(11)+10;
write(a[i,j]:5);
end;
writeln;
end;
p:=1;
min:=a[1,1];
max:=min;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,j]<min) then min:=a[i,j];
if (a[i,j]>max) then max:=a[i,j];
End;
P:=min*max;
writeln('произведение максимального и минимального элемента=',p);
readln;
end.
/*
Выводы перед вводом данных(cout) можно убрать (сделал для удобства)
*/
#include <iostream>
#include <vector>
#define UNITS '$' // <- Валюта
using namespace std;
int main()
{
int SWEETS, COOKIES, APPLES;
cout<<"Price for 1 kg of sweets\n>>"<<UNITS;
cin>>SWEETS;
cout<<"Price for 1 kg of cookies\n>>"<<UNITS;
cin>>COOKIES;
cout<<"Price for 1 kg of apples\n>>"<<UNITS;
cin>>APPLES;
int x, y, z;
cout<<"Enter amount in kg\n";
cout<<"How many sweets?\n>>";
cin>>x;
cout<<"How many cookies?\n>>";
cin>>y;
cout<<"How many apples?\n>>";
cin>>z;
int total = x*SWEETS + y*COOKIES + z*APPLES;
cout<<"\n"<<"TOTAL PRICE IS\n"<<UNITS<<total<<"\n\n";
return 0;
}
1.
a = int(input())
sum = 0
iter = 1
while(iter <= 100):
if iter % a == 0:
sum = sum + iter
iter = iter + 1
print(sum)
2.
a = int(input())
b = int(input())
sum = 0
mult = 1
while(a <= b):
if a % 7 == 0:
sum = sum + a
mult = mult * a
a = a + 1
print(sum)
print(mult)