Помогите с информатикой(

Знания

Информатика

1 ответ:

Роксана2024 года назад

0 0

Repeat … until условие

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

Задание 1. Составить алгоритм и программу вывода на экран удвоенных значений целых чисел от 5 до 15. Задание 2. Составить алгор

Galada

Задание №1
var
x:integer;
begin
for x:=5 to 15 do Writeln('x=',x:2,' y=',2*x)
end.

Результат выполнения программы:
x= 5 y=10
x= 6 y=12
x= 7 y=14
x= 8 y=16
x= 9 y=18
x=10 y=20
x=11 y=22
x=12 y=24
x=13 y=26
x=14 y=28
x=15 y=30

Задание №2
var
x:real;
begin
x:=1;
while x<=2 do begin
 Writeln('x=',x:4:1,' y=',sin(3*x):8:5);
 x:=x+0.3
end
end.

Результат выполнения программы:
x= 1.0 y= 0.14112
x= 1.3 y=-0.68777
x= 1.6 y=-0.99616
x= 1.9 y=-0.55069

Задание №3
const
n=40;
var
i:integer;
a:real;
begin
for i:=1 to n do
begin Write('a',i,'='); Read(a); Writeln('S=',sqr(a)) end
end.

Фрагмент работы программы:
a1=2.6
S=6.76
a2=4.18
S=17.4724
a3=1
S=1
a4=17
S=289
a5=

0 0

4 года назад

Напишите программу в PASCAL, которая рассчитывает сумму двух максимальных цифр этого числа СРОЧНО!!!

Алим03 [1]

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadlnString.Sorted.TakeLast(2).ToArray;
Writeln(StrToInt(a[0])+StrToInt(a[1]));
end.

Тестовое решение:
324576854532
15

0 0

3 года назад

2359296 пикселей = мегапикселей.

Beautiful8

Ответ:

494848

Объяснение:

0 0

4 года назад

Помогите,плиззз.Задания 6,7,8

Каролина1525 [7]

6 - 3 ответ точный!

0 0

4 года назад

Даны два числа А и В (А<В). Найти произведение всех целх чисел от А до В включительно. Fortran

MaksBosyash [34]

program AB
 integer a,b,i,p
 read (*,*) a,b
 p=1
 do i=a,b
 p=p*i
 enddo
 write (*,*) p
 stop
 end
Тестовое решение для ввода 3 8
 20160

0 0

3 года назад