программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.
№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
var alpha: real;
begin
read(alpha);
if alpha > 90 then write("tupougolnyj");
if alpha = 90 then write("prjamougolnyj");
if alpha < 90 then write("ostrougolnyj");
end.
Ответ дал: Гость
//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin var (cost, t, k) : = (arr(15, 70, 125, 230, 440), arr(1, 5, 10, 20, 60), new integer[5]); var n : = readinteger('n-> '); for var i : = 4 downto 0 do begin k[i] : = n div t[i]; n : = n mod t[i]; end; if k[0] * cost[0] > = cost[1] then begin k[0] : = 0; inc(k[1]); end; if k[0] * cost[0] + k[1] * cost[1] > = cost[2] then begin k[0] : = 0; k[1] : = 0; inc(k[2]); end; if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] > = cost[3] then begin k[0] : = 0; k[1] : = 0; k[2] : = 0; inc(k[3]); end; if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] > = cost[4] then begin k[0] : = 0; k[1] : = 0; k[2] : = 0; k[3] : = 0; inc(k[4]); end; for var i : = 0 to 4 do writelnformat('{0} билет(ов)- {1} штук(а)', t[i], k[i]); end. пример(1): n-> 37 1 билет(ов)- 0 штук(а) 5 билет(ов)- 0 штук(а) 10 билет(ов)- 0 штук(а) 20 билет(ов)- 0 штук(а) 60 билет(ов)- 1 штук(а) пример(2): n-> 35 1 билет(ов)- 0 штук(а) 5 билет(ов)- 1 штук(а) 10 билет(ов)- 1 штук(а) 20 билет(ов)- 1 штук(а) 60 билет(ов)- 0 штук(а)
Ответ дал: Гость
1)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.
2)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.
3)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.
Популярные вопросы