7 Какое значение будет иметь переменная р после выполнения программы, если с клавиатуры введено число 7? Program Primer1; var a, b, p: integer; Begin writeln (‘Введите a’); readln (a); if (a>=7) then begin b:=3; p:=a*a+b*b; end Else begin b:=5; p:=(a+b)*(a+b); end; writeln (‘ p=’, p); End.
#include <iostream>
#include <Windows.h>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
float a, b, c;
Start:
system("CLS");
cout << "Введите 3 действительных числа:\n";
cin >> a;
cin >> b;
cin >> c;
if (a>b && a>c)
cout << "Вот что получится если удвоить ваши числа: " <<a*2<< b*2<<c*2<<"\n";
else
cout << "Заменяю ваши числа обсолютными значениями: " <<abs(a)<<abs(b)<<abs(c)<< "\n";
Sleep(5000);
goto Start;
}
const n=5;
begin
writeln('До:');
var a:=MatrRandom(n,n,-10,10); a.Println(5);
var b:=a.ElementsWithIndexes.Select(k->k[2]>k[1]?0:k[0]).ToArray;
writeln('После:');
a:=MatrGen(n,n,(i,j)->b[i*n+j]); a.Println(5);
end.
Пример:
До:
-7 3 8 -6 -5
-2 6 -1 -6 -8
5 7 2 -10 0
9 3 -8 5 -6
-4 1 1 0 -10
После:
-7 0 0 0 0
-2 6 0 0 0
5 7 2 0 0
9 3 -8 5 0
-4 1 1 0 -10
2.
const n=5;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=i+1 to n do a[i,j]:=0;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
62 25 21 54 22
71 39 41 49 63
26 93 50 79 35
81 45 40 99 45
46 87 63 36 15
Полученный массив:
62 0 0 0 0
71 39 0 0 0
26 93 50 0 0
81 45 40 99 0
46 87 63 36 15