//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
const
int n=3;
int main(){
int ma[n*2][n];
bool b;
int nr=0;
nr=n;
b=false;
for(int i=0;i<n*2;i++)
for(int j=0;j<n;j++)
ma[i][j]=0;
for(int i=0;i<n;i++)
for(int j=0;j<n;j++)
cin>>ma[i][j];
cout<<"Matrix:"<<endl;
for(int i=0;i<nr;i++){
for(int j=0;j<n;j++)
cout<<ma[i][j]<<' ';
cout<<endl;}
for(int i=0;i<nr;i++){
for(int j=0;j<n;j++){
if(ma[i][j]==0)b=true;}
if(b==true){
for(int z=nr-1;z>i;z--){
for(int c=0;c<n;c++)
ma[z+1][c]=ma[z][c];}
for(int c=0;c<n;c++)
ma[i+1][c]=5;
nr++;}
b=false;}
cout<<"Final matrix:"<<endl;
for(int i=0;i<nr;i++){
for(int j=0;j<n;j++)
cout<<ma[i][j]<<' ';
cout<<endl;
}
cin.get();
cin.get();
return 0;
}
Uses crt;
const N = 30;
var A: array[1..N] of integer;
i, x, y:
integer;
s: real;
begin
for i:=1 to
N do readln(A[i]);
writeln;
x:=201;
for i:=1 to N do
if (a[i]<x) and (a[i]>179) then begin x:=a[i]; y:=i; end;
writeln(a[y]);
end.
<h2>Ошибка</h2>
Знак "больше или равно" пишется в том же порядке, что и читается
Сначала знак больше потом равно
" >= "
<h2>Исправление ошибки</h2>
Заменить 16 строку " if(D=>0) then "
На " if(D>=0) then "
<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК