Напишите программы в Turbo Pascal?

Julsy12 18 окт. 2020 г., 05:51:36

1) Вот первая задачка :

uses crt ;

var a, b, c : real ;

begin

ClrScr ;

Write(' a = ') ; ReadLn(a) ;

Write(' b = ') ; ReadLn(b) ;

c : = sqrt(a * a + b * b) ;

WriteLn(' c = ', C : 4 : 2) ;

ReadLn ;

end.

2) А вот задачка 2

uses crt ;

var s, s0 : real ; i : integer ;

begin

ClrScr ;

S0 : = 3 ;

i : = 1 ;

While S0< ; 20 do begin i : = i + 1 ; S : = S0 * (1 + 0.

05) ; S0 : = S + S0 ; end ; WriteLn(' Day = ', i) ;

ReadLn ;

end.

3) А вот и третья задачка подоспела.

Uses Crt ;

const n = 15 ;

type Mas = array [1.

N] of real ;

var A : Mas ; i : integer ; Sum : real ;

begin

ClrScr ;

Sum : = 0 ;

for i : = 1 to n do begin Write(' A[', i, '] = ' ) ; ReadLn (A[i]) ; Sum : = Sum + A[i] ; end ;

WriteLn (' Massiv : ') ;

for i : = 1 to n do Write (A[i] : 6 : 2, ' ') ;

WriteLn ; WriteLn ;

WriteLn ('Sum = ', Sum : 6 : 2) ;

ReadLn ;

end.

Vovapalchikov 17 янв. 2020 г., 08:51:01 | 10 - 11 классы

Напишите программу(turbo pascal)выводящую на экран кубы чисел от 1 до 20?

Напишите программу(turbo pascal)выводящую на экран кубы чисел от 1 до 20.

Заранее спасибо)).

MrSuperFlash 16 нояб. 2020 г., 10:28:48 | 1 - 4 классы

Напишите программу в Turbo Pascal?

Напишите программу в Turbo Pascal.

Спасибо!

Katjulka 24 мар. 2020 г., 07:48:20 | 5 - 9 классы

Напишите пожалуйста программу на Turbo pascal :Найти частное двух целых чисел вводимых с клавиатуры?

Напишите пожалуйста программу на Turbo pascal :

Найти частное двух целых чисел вводимых с клавиатуры.

Alenakornukova 2 дек. 2020 г., 16:30:03 | 10 - 11 классы

Написать программу в Turbo pascal Найти 2 максимума из любой последовательности чисел?

Написать программу в Turbo pascal Найти 2 максимума из любой последовательности чисел.

СМАЙЛИ 24 февр. 2020 г., 20:55:10 | 10 - 11 классы

Написать программу, которая выводит изображенный ниже узор?

Написать программу, которая выводит изображенный ниже узор.

Turbo Pascal.

Kuanov07 29 мар. 2020 г., 15:17:55 | 5 - 9 классы

Написать программу вычисления суммы натуральных чисел от 1 до nTurbo Pascal?

Написать программу вычисления суммы натуральных чисел от 1 до n

Turbo Pascal.

1357919 29 апр. 2020 г., 14:42:46 | 5 - 9 классы

Напишите программу которая запрашивает значение двух переменных и выводит их сумму ?

Напишите программу которая запрашивает значение двух переменных и выводит их сумму .

На паскаль Pascal Turbo.

89178426960 17 июл. 2020 г., 05:34:04 | 5 - 9 классы

Помогите составить программу очень срочно?

Помогите составить программу очень срочно!

Pascal TURBO.

Itrofimoff 1 авг. 2020 г., 03:40:26 | 1 - 4 классы

Структура программы на языке turbo pascal?

Структура программы на языке turbo pascal.

Ptyika17 30 дек. 2020 г., 05:22:55 | 5 - 9 классы

Turbo Pascal?

Turbo Pascal.

Составить программу.

Вычислить значение функции :