Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Vampir2010
0 / 0 / 0
Регистрация: 06.01.2013
Сообщений: 15
#1

Ввести файл F из 13 элементов - Pascal ABC

14.12.2013, 01:19. Просмотров 281. Ответов 1
Метки нет (Все метки)

Ввести файл F из 13 элементов. Определить сумму элементов, которые при умножении на 4 дают значение большее, чем при возведении в квадрат.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 01:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ввести файл F из 13 элементов (Pascal ABC):

Ввести файл F из 13 элементов - Pascal ABC
Ввести файл F из 13 элементов. Определить сумму элементов, которые при умножении на 4 дают значение большее, чем при возведении в квадрат.

Ввести файл F из 15 элементов - Pascal
Ввести файл F из 15 элементов. Определить в нём среднее геометрическое модулей отрицательных элементов.

Ввести файл F из 14 элементов - Pascal
Ввести файл F из 14 элементов. Определить сумму квадратов индексов элементов делящихся на три без остатка. по блок-схеме помогите,...

Ввести файл целых чисел. подсчитать количество положительных элементов, если К>0, то подписать в конце файла 1 - Pascal ABC
Ввести файл целых чисел. подсчитать количество положительных элементов, если К>0, то подписать в конце файла 1. Файл распечатать.

Ввести файл F1. Записать в файл F2 компоненты файла F1 в обратном порядке - Pascal ABC
Ввести файл F1. Записать в файл F2 компоненты файла F1 в обратном порядке. В каждом из файлов элемент, стоящий справа от максимума...

Ввести в файл данные о пяти работниках и вывести в другой файл максимальный оклад - Pascal ABC
Задача на pascal abc,решить задачу используя type Помогите пожалуйста очень надо) Составить программу которая создает файл...

1
Romalei
109 / 50 / 33
Регистрация: 17.09.2013
Сообщений: 296
14.12.2013, 01:33 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var
sum,i:integer;
a:array[1..13] of integer;
t:text;
begin
sum:=0;
assign(t,'F.txt');
writeln('Введите элементы массива:');
for i:=1 to 13 do readln(a[i]);
rewrite(t);
for i:=1 to 13 do write(t,a[i],' ');
close(t);
write('Элементы массива, удовлетворяющие условию: ');
for i:=1 to 13 do
 if ((a[i]*4)>sqr(a[i])) then
   begin
    write(a[i],' ');
    inc(sum,a[i]);
   end;
writeln;
writeln('Сумма = ',sum);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 01:33
Привет! Вот еще темы с ответами:

Ввести файл . Все нули в файле заменить единицами, а единицы нулями. Файл вывести до и после преобразования. - Pascal ABC
Ввести файл . Все нули в файле заменить единицами, а единицы нулями. Файл вывести до и после преобразования. Решение нужно как можно...

Ввести файл. Каждый четный элемент в файле заменить результатом его целочисленного деления на 5. Файл вывести до и после преобразования - Pascal
Доброго времени суток, форумчане! Код написал. Не работает. выдает один и тот же файл до преобразования и после. в чем моя ошибка?...

Ввести массив из 5 элементов, найти среднее арифметическое всех элементов массива. - Pascal ABC
Здравствуйте! Помогите пожалуйста решить задачу: 1)Ввести массив из 5 эл.,найти ср.арифметическое всех элементов массива. Заранее...

ввести двумерный массив 3х3 элементов, найти произведение элементов массива. - Pascal
напишите пожалуйста программу целиком, ато я массивы плохо знаю


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru