СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до 10.07.2025

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Program zadachi Pascal ABC

Категория: Информатика

Нажмите, чтобы узнать подробности

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.

 

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

Показать полностью

Просмотр содержимого документа
«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.


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


Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!