Ввод чисел продолжается, пока не введено число 100.
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.
Var
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.
#include <iostream>
using namespace std;
int main(){
float a,v,s;
cin>>a;
v=a*a*a;
s=6*a*a;
cout<<"v="<<v<<" s="<<s,"\n";
}
Тестовое решение:
3.5
v=42.875 s=73.5
--------------------------------
Process exited after 5.803 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
4-е тысячелетия до нашей эры! Событие может быть является датой