Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
фактографическая бд содержит краткие сведения об описываемых объектах, представленные в строго определенном формате.
документальная бд содержит обширную информацию самого разного типа: текстовую, графическую, звуковую, мультимедийную.
var a,b,c,d: integer;
writeln ('vvedite a');
read(a);
writeln ('vvedite b');
read(b);
writeln ('vvedite c');
read(c);
writeln ('vvedite d');
read(d);
if (a> b) and (a> c) and (a> d) then writeln('samoe bolshoe chislo - a')
else writeln('a ne samoe bolshoe');
include < iostream>
using namespace std;
int main()
{int n;
cin > > n;
switch(n)
{case 1: cout< < "i"; break;
case 5: cout< < "v"; break;
case 10: cout< < "x"; break;
case 50: cout< < "l"; break;
case 100: cout< < "c"; break;
case 500: cout< < "d"; break;
case 1000: cout< < "m"; break;
}
return 0;
Популярные вопросы