Program zadachi Pascal ABC

Program zadacha;

Var B, S: real;

Begin

Writeln ('b=');

Readln (B);

s:= 30-b/1.5;

Writeln ('шай дайындау үшін' , s,'грамм');

end.

Program zadacha;

Var B, S: real;

Begin

Writeln ('b=');

Readln (B);

s:= 30-b/1.5;

Writeln ('шай дайындау үшін' , s,'грамм');

end.

Program zadacha;

Var B, S: real;

Begin

Writeln ('b=');

Readln (B);

s:= 30-b/1.5;

Writeln ('шай дайындау үшін' , s,'грамм');

end.

Program zadacha;

Var B, S: real;

Begin

Writeln ('b=');

Readln (B);

s:= 30-b/1.5;

Writeln ('шай дайындау үшін' , s,'грамм');

end.

Program zadacha;

Var B, S: real;

Begin

Writeln ('b=');

Readln (B);

s:= 30-b/1.5;

Writeln ('шай дайындау үшін' , s,'грамм');

end.

Program zadacha;

Var B, S: real;

Begin

Writeln ('b=');

Readln (B);

s:= 30-b/1.5;

Writeln ('шай дайындау үшін' , s,'грамм');

end.

шай дайындау үшін

uses graphabc;

var a: integer;

begin

write('Квадраттың жағын енгізіңіз: ');

read(a);

clearwindow;

rectangle(50,50,50+2*a,50+2*a);

circle(50+a,50+a,a);

end.

uses graphabc;

var a: integer;

begin

write('Квадраттың жағын енгізіңіз: ');

read(a);

clearwindow;

rectangle(50,50,50+2*a,50+2*a);

circle(50+a,50+a,a);

end.

uses graphabc;

var a: integer;

begin

write('Квадраттың жағын енгізіңіз: ');

read(a);

clearwindow;

rectangle(50,50,50+2*a,50+2*a);

circle(50+a,50+a,a);

end.

uses graphabc;

var a: integer;

begin

write('Квадраттың жағын енгізіңіз: ');

read(a);

clearwindow;

rectangle(50,50,50+2*a,50+2*a);

circle(50+a,50+a,a);

end.

uses graphabc;

var a: integer;

begin

write('Квадраттың жағын енгізіңіз: ');

read(a);

clearwindow;

rectangle(50,50,50+2*a,50+2*a);

circle(50+a,50+a,a);

end.

uses graphabc;

var a: integer;

begin

write('Квадраттың жағын енгізіңіз: ');

read(a);

clearwindow;

rectangle(50,50,50+2*a,50+2*a);

circle(50+a,50+a,a);

end.

тіктөртбұрыш және шеңбер ішінде

program Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

program Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

program Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

program Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

алма теретінін есептейтін бағдарлама

Зprogram Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

program Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

program Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

program Zadacha1;

var m, k, l, t, P :integer;

begin

Writeln ('M=');

readln (m);

Writeln ('k=');

readln (k);

Writeln ('l=');

readln (l);

Writeln ('T=');

readln (T);

P:=(m+k+l)*t ;

Writeln (p);

end.

алма теретінін есептейтін бағдарлама