Question

Помогите с 1 и 3 заданием

Answer 1

1 задание:
Var  x,y: integer;Beginwriteln('Введите два числа (от 0 до 255): ');readln(x,y);if x>y then writeln('x+y= ',x+y)elsewriteln('x*y= ',x*y);end.

3 задание:
var x,y: string;beginwriteln('ЭВМ: В каком городе ты живёшь?');readln(x);if x='Лермонтов' then writeln('ЭВМ: Рядом с колледжом живёшь!')elsebeginwriteln('ЭВМ: Приходится ездить?');readln;end;writeln('ЭВМ: Надо учиться!')end.

Answer 2

На

1.
Program TuKpa6noJlHbiII;vara,b:integer;BEGINwriteln('BBugu 2 4ucJlo oT 0 go 255');readln(a);readln(b);if (a<=255) and (a>=0) and (b<=255) and (b>=0) then  begin    if a > b then      begin        writeln('a+b=',a+b);      end    else      begin        writeln('a*b=',a*b);      end;      readln;  endelse  begin    writeln('oT 0 go 255');  end;END.

2.
Program TuKpa6;varm:real;BEGINwriteln('m=');read(m);if m >= 2 then  begin    writeln('M=',m);    writeln('N=',4*m+2);  endelse if m < 2 then  begin    writeln('M=',m);    writeln('N=',3*m-8);  end;readln;END.

3.
Program TuKpa6;varname:string;BEGINwriteln('B kakoM ropoge TbI )|(uBeIIIb aa');readln(name);if name='Лермонтов' then  begin    writeln('P9goM c koJlJleg)|(eM )|(uBeIIIb!');  endelse  begin    writeln('npuxoguTc9 e3guTb?');  end;writeln('Hago y4uTbc9!');readln;END.

4.
Program TuKpa6;var   a,b,c,d,x1,x2: real; begin {Вводим значения a, b и c}   write('Wwedite A: ');   readln(a);   write('Wwedite B: ');   readln(b);   write('Wwedite C: ');   readln(c); {Вычисляем дискриминант}   d:= b*b - 4*a*c; {Если дискриминант больше 0, то вычисляем корни и выводим на экран}   if d > 0 then begin   x1:= (b - sqrt(d))/(2*a);   x2:= (-b - sqrt(d))/(2*a);   writeln('x1 = ',x1:0:4);   writeln('x2 = ',x2:0:4); end; {Если дискриминант равен 0, то вычисляем один корень и выводим на экран}   if d = 0 then begin   x1:= -(b/(2*a));   writeln('Koren = ',x1:0:4); end; {Если дискриминант меньше 0, то выводим сообщение}   if d < 0 then begin   writeln('Korney net'); end;   readln; end.

5.
Program TuKpa6;varx:shortint;BEGINwriteln('BBeguTe geHb HegeJlu');readln(x);if (x>=1) and (x<=7) then  begin    if x=1 then begin writeln('noHegeJlbHuk'); end;    if x=2 then begin writeln('BTopHuk'); end;    if x=3 then begin writeln('Cpega'); end;    if x=4 then begin writeln('4eTBepr'); end;    if x=5 then begin writeln('n9THuII,a'); end;    if x=6 then begin writeln('cy66oTa'); end;    if x=7 then begin writeln('BockPeceHbe'); end;  endelse  begin    writeln('oT 1 go 7');  end;readln;END.

6.
Program TuKpa6;varx:shortint;BEGINwriteln('BBeguTe geHb HegeJlu');readln(x);if (x>=1) and (x<=7) then  begin    if x=1 then begin writeln('noHegeJlbHuk'); end;    if x=2 then begin writeln('BTopHuk'); end;    if x=3 then begin writeln('Cpega'); end;    if x=4 then begin writeln('4eTBepr'); end;    if x=5 then begin writeln('n9THuII,a'); end;    if x=6 then begin writeln('cy66oTa'); end;    if x=7 then begin writeln('BockPeceHbe'); end;    if (x>=1) and (x<=5) then begin writeln('6ygHuII geHb'); end    else begin writeln('BbIxogHoII'); end;  endelse  begin    writeln('oT 1 go 7');  end;readln;END.

7.
Program TuKpa6;varx,i:shortint;BEGINwriteln('BBeguTe geHb HegeJlu');readln(x);if (x>=1) and (x<=31) then  begin    if (x=9) and (x<>x-1) then begin writeln('npa3gHu4HbiII geHb'); writeln('BbIxogHoII'); end;    if (x=9-1) then begin writeln('npegnpa3gHu4HbiII geHb'); end;    if (x mod 7 = 1) then begin writeln('noHegeJlbHuk'); end;    if (x mod 7 = 2) then begin writeln('BTopHuk'); end;    if (x mod 7 = 3) then begin writeln('Cpega'); end;    if (x mod 7 = 4) then begin writeln('4eTBepr'); end;    if (x mod 7 = 5) then begin writeln('n9THuII,a'); end    else      begin        if (x mod 1=0) or (x mod 2=0) or (x mod 3=0) or (x mod 4=0) or (x mod 5=0) then          begin            if x<>9 then              begin                writeln('6ygHuII geHb');               end;          end;        if (x mod 7=0) or (x mod 6=0) then begin writeln('BbIxogHoII'); end;      end;  endelse  begin    writeln('oT 1 go 31');  end;
writeln('xmod7=',x mod 7);readln;END.

толко 4 не я делал, спер хе хе.