Program z15; Var i, sum, b, test_1, test_2:integer; a: array [1..5] of integer;Begin for i:= 1 to 5 do begin write('Число ', i,' = '); readln(a[i]); end; test_1:= 0; test_2:= 0; sum:= 0; writeln; for i:=1 to 3 do sum:= sum + a[i]; if (sum > 0) then for i:= 1 to 5 do begin test_1:= 1; b:= a[i] * -1; writeln('Число ', i,' = ', b); end; if ((a[4] < 0) and (a[5] < 0)) then begin test_2:= 1; write('Произведение двух последних чисел = ', a[4]*a[5]); end; writeln; if ((test_1 = 1) and (test_2 = 2)) then for i:=1 to 5 do writeln('Число ', i,' = ', a[i]) else for i:=1 to 5 do writeln('Число ', i,' = ', a[i]*2) End.
Uses crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo a: ');
Readln(a);
Writeln('Vvedite chislo b: ');
Readln(b);
If b=0 then Writeln('Popytka delit na 0!');
S:=a/b;
Writeln('',a,' / ',b,' = ',s);
readln;
<span>END.</span>
Боря и мальчик из Кирова не были в москве и спб, значит Боря - Омск.
Гриша жил с москвичом, а мальчик из кирова к ним заходил, значит, Гриша из спб.
Егор играл в шахматы с москвичом, значит, сам он из кирова.
Витя из москвы.
Var s:string; p1,p2:integer;
begin
writeln('Введите слово:');
readln(s);
p1:=pos('жы',s);
p2:=pos('шы',s);
if (p1=0)and(p2=0) then writeln('Ошибок не замечено.');
if p1>0 then
begin
delete(s,p1,2);
insert('жи',s,p1);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
if p2>0 then
begin
delete(s,p2,2);
insert('ши',s,p2);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
end.
Например ребус
три клетки в неё напиши ГАЛ ( выбери мальчика стукни не сильно и скажи отгадай слово)
ответ : ГАлСТУК
