Я хочу чтоб школа была стеклянной, а планшеты место тетрадей.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.
#include <iostream>
//#include <string>
//#include <cstdlib>
//#include <ctime>
using namespace std;
/* пограмма на с++
*
*
*
*/
int main(){
//system("clear");
cout«endl«endl«endl;
//srand(time(0));
int n;
int u;
do{
cout«" сколько чисел : ";
cin»n;
u=n;
if(cin.fail()){
cin.clear();
cin.ignore(32767,'\n');
}; } while (u<=0);
int arr[n];
int s=0;
int p=1;
bool lol=false;
//заполнение
int y;
for(int w=0; w<n; w++){
do{
cout«" введите число номер "«w«" : ";
cin»y;
if(cin.fail()){
cin.clear();
cin.ignore(32767,'\n');};
} while (y == 0);
arr[w]=y;
if(arr[w]%2==0) {
s=s+arr[w];
p++;
lol=true;
};};
if(lol)cout«" среднее арефметическое чётных чисел : "«s/(p-1);
else cout«" среднее арефметическое чётных чисел ненайдено ";
cout«endl«endl«endl;
return 0;
}
Var A,B :integer;
begin
A:=17;
B:=-25;
while (a*B)<0 do begin
writeln (A*B);
A:=A-3;
B:=B+5;
end;
end.<span>
</span>
Var
c,t:integer;
s:string;
begin
readln(s);
s:=ReverseString(s);
t:=pos('т',s);
c:=pos('с',s);
write('Встречается позже: ');
if t>c then writeln('"c"') else writeln('"т"')
<span>end.</span>