4 года назад

Одно целое число значение переменной а

Знания

Информатика

1 ответ:

sergey1970 [10]4 года назад

0 0

{Pascal}
var
a:integer;
begin
write('Введите a: ');
readln(a);
writeln('Вы ввели ',a);
end.

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

Выполняется в программе Pascal ABC.Строка содержит арифметическое выражение в виде двух чисел, между которыми стоит знак арифмет

Мурат Алтай [7]

Вот вам программа, пробовала компилировать и запускать на free-pascal, на всем остальном тоже должно пойти

0 0

4 года назад

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

Zyfan

Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.

0 0

4 года назад

Мне надо решить задачу по информатике в программе Pascal или на листочке.Помогите пожалуйста решитьЗадача№1(Линейный алгоритм)Со

kawik

Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>

0 0

4 года назад

Ввести массив x из 25 элементов. Увеличить все отрицательные элементы массива на 5 и вывести новый массив.

Никита161 [7]

#include <iostream>
using namespace std;
int main() {
setlocale(0, "RUS");
int x[25];
for (int i = 0; i < 5; i++) {
cin >> x[i];
}
cout << "Исходный массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
if (x[i] < 0) x[i] += 5;
}
cout << endl << "Новый массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
}
cout << endl;
system("pause");}

0 0

4 года назад

Прочитать ещё 2 ответа

У исполнителя Вычислитель две команды, которым присвоены номера: 1. умножь на 3 2. вычти 5 Первая из них увеличив

Александр Ка [870]

22112
1)14-5=9
2)9-5=4
3)4*3=12
4)12*3=36
5)36-5=31

0 0

4 года назад