Задать вопрос!

Задать вопрос!

Все категории

FedorVenski [50]

4 года назад

9

Что будет выведено на экран в результате выполнения фрагмента программы?

x := 2019; a := x mod 10; b := x div 100; c := b div 10; write(a + b + c);

Информатика

1 ответ:

AnnaRos [24]4 года назад

0 0

x = 2019

a = 9

b = 20

c = 2

Вывод: 31

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

Помогите пожалуйста. Мне нужна программа Паскаль с циклом For...Задача: Ежедневно температура воздуха июля повышалась на пол гра

Откройте глаза [7]

Uses crt;
var i:integer;
t:real;
begin
t:=23;
for i:=1 to 20 do
t:=t+0.5;
writeln(t) ;
end.

0 0

4 года назад

Помогите сделать таблицу кубов в exel!Так как на скриншоте. Нужны формулы, или хотя бы формула первого значения

Anonim12345

В ячейку В2 вводите формулу, как показано на рисунке, а дальше действуете мышкой

0 0

4 года назад

Написать код к заданию: Напишите программу, которая будет определять наибольшую цифру во введенном трехзначном числе.

Irina2010 [435]

Var
a: integer;
a1, a2, a3, max: byte;
begin
readln(a);
a1 := a div 100;
a2 := a mod 100 div 10;
a3 := a mod 10;
max := a1;
if (a2 > max) then
max := a2;
if (a3 > max) then
max := a3;
writeln(max);
end.

0 0

4 года назад

Составить программы для решения приведенных ниже задач отладить их и проверить работу при различных исходных данных.

Fenechkoo

Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
S:=S+N;
if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')')
else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')')
End.

0 0

4 года назад

Создать программу: В заданном одномерном массиве переставить местами значения элементов, стоящих на четных местах со значениями

west321

Const n=10;
var i,p:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=Random(-10,10);
write(a[i],' ');
end;
writeln();
i:=1;
while(i<n) do begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
i+=2;
end;
for i:=1 to n do
write(a[i],' ');
<span>end.</span>

0 0

4 года назад