2 года назад

. Дан диаметр окружности d. Найти ее длину L = пи*d. В качестве значения пи использовать 3.14.

Знания

Информатика

1 ответ:

assa101 [7]2 года назад

0 0

Вот фрагмент программы на Паскале:

Write (' d = ');
ReadLn (d);
L:=3.14*d;
WriteLn( ' L = ', L);

Читайте также

ПОМОГИТЕ ПОЖАЛУЙСТА - ПАСКАЛЬ! через IF С клавиатуры вводятся радиус шара, высота цилиндра. Радиус шара и радиус цилиндра одинак

Елена Литва [32]

Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.

0 0

4 года назад

Помогите...пожалуйста...

vanok122 [3]

Вторая строка это пароль от сервера интернета. Введи нужный по роль что бы подключится

0 0

3 года назад

Помогите пожалуйста решить задание номер 7.по информатике. Тема основы алгоритмизации и программирования

Дмитрий80 [3]

Программа на паскале:

var x: integer; s: real;

begin

readln(x);

s:=3.6/20*x*365;

writeln(s:4:1, ' гр');

end.

Пример:

328.5 гр

0 0

3 года назад

Помогите пожалуйста 1) составьте программы к задачам Определить, является ли введённое число двузначным ( число любое 2х значно

yacatan [10]

На каком языке надо? Если паскаль то держи:
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.

2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.

3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже

4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('Ответ= ',a/2)
else
write('Было введено нечетное число!');
end.

5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.

6)Его надо делать так же как число и 555 а ответ вообще 4 единицы

0 0

4 года назад

Ваня шифруется русские слова, записывая вместо каждой буквы её номер в алфавите. Номера букв даны в таблице.

petuhova smarthof

Из предложенного перечня:

910141 - зима.

0 0

3 года назад