вариант решения, если элементы вводятся var n, i, x, s : integer; t: string; begin writeln('количество чисел'); readln(n); s := 0; for i := 1 to n do begin writeln(i,' число:'); readln(x); if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
вариант решения, если элементы заданы массивом const n=50 var i, x, s : integer; t: string; m1: array [1..n] of integer; begin s := 0; for i := 1 to n do begin x := m1[i]; if (x > 9) and (x<100)) then begin t := IntToStr(x); if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1; end; end; writeln('ответ ',s) end.
#include <iostream> //если не отображается, пиши после include - iostream в <>
using namespace std;
int main(){
for(int i=0;i<10;i++)
cout<<"Hello World";
cin.get();
cin.get();
return 0;
} 11.
#include <iostream> //если не отображается, пиши после include - iostream в <>
#include <string> //если не отображается, пиши после include - string в <>
using namespace std;
int main() {
string s,p;
cin>>s;
cin>>p;
if((p!="v") && (p!="g"))
return 66;
int n;
cin>>n;
if (p=="g"){
for(int i=0;i<n;i++)
cout<<s;
}
else
{
for(int i=0;i<n;i++)
cout<<s<<"\n";
}
cin.get();
cin.get();
return 0;
}
var
n, i, x, s : integer;
t: string;
begin
writeln('количество чисел');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' число:');
readln(x);
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.
вариант решения, если элементы заданы массивом
const
n=50
var
i, x, s : integer;
t: string;
m1: array [1..n] of integer;
begin
s := 0;
for i := 1 to n do
begin
x := m1[i];
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.