var s: string; begin writeln('как вас зовут? '); readln(s); case s of 'вася': s: ='василий'; 'петя': s: ='петр'; 'люся': s: ='людмила'; 'миха': s: ='михаил'; 'пупс': s: ='пупондий'; else s: ='я с вами не знакома'; end; writeln(s); readkey; end.
Ответ дал: Гость
var a,c,l,w1,w2,w3 : longint;
begin
readln(a,c);
w1: =0;
w2: =0;
w3: =0;
l: =a mod 10;
while a> 0 do
begin
if a mod 10=c then w1: =w1+1;
if a mod 10=l then w2: =w2+1;
if a mod 2=0 then w3: =w3+1;
a: =a div 10;
end;
writeln(w1,' ',w2,' ',w3);
end.
Ответ дал: Гость
const n = 20; var a : array [1..n] of integer; pos, sum, znak : integer; begin write('массив: '); randomize; for pos : = 1 to n do begin a[pos] : = random(101) - 50; write(a[pos]: 4); end; writeln; for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos]; writeln('разность между суммой 1-й половины и 2-й = ', sum); end.
Популярные вопросы