PascalABC.NET
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.
алма теретінін есептейтін бағдарлама