Автор Алевтина задал вопрос в разделе Другие языки и технологии
Как решить задачи в Паскале? и получил лучший ответ
Ответ от Евгений Пальмов[гуру]
Uses crt; Var i :integer; M :array[1..12] of integer; Function FRACS(A:integer):integer; Begin FRACS:=Round(Frac(A/10)*10); End; Begin Clrscr; Randomize; For i:=1 to 12 do Begin M[ i ]:=-10+Random(71); write(M[ i ],\' \'); End; Writeln; For i:=1 to 12 do Begin If (M[ i ]>10) and (FRACS(M[ i ])<>0) and (FRACS(M[ i ]) mod 2=0) and (M[ i ] mod FRACS(M[ i ])=0) Then M[ i ]:=0; Write(M[ i ],\' \'); End; Readkey; End. Это первое задание. Если я правильно понял удалить = заменить на 0? Заменяет только если число двухзначное (это легко подкорректировать если нужно) , а также если оно не оканчивается на 0 (Ибо делить на ноль нельзя).
Если надо полное описание с Begin, var и так далее или если какая-то часть не работает - пишите мне лично, с радостью отвечу (Или в коменты) . Mass - массив Mass2 - массив для задачи 2 (количество чисел 12*3=36. Это в случае если каждому числ
скажите реально хорошие сборники задач по программированию, буду очень благодарен. программирую в с++
Лучше учиться на готовых прогах, нужно будет
подробнее...
Помогите пожалуйста!!!решить задачу через Паскаль:Напишите прог.поиска большего из четырех чисел
{ Наибольшее из 4-рех. }
PROGRAM ZAD_4;
USES Crt;
Var A1, A2, A3, A4 :
подробнее...
Может кто-нибудт подсказать какие-нибуть Интересные математические высказывания???
Предмет математики настолько серьезен, что полезно не упустить случая сделать его немного
подробнее...
PASCAL. В чем отличие процедур от функций. И любую ли задачу можно решить с помощью функции?
Из любой функции можно сделать процедуру. Функция отличается тем, что ее имени можно присвоить
подробнее...
Какой язык программирования лучше?
Сейчас больше количество прикладных программ работают в связке с вэбом. Для новичка я бы не
подробнее...
Люди, кто знает, как решеть задачи по програмированию методом пузырька? и вообще что такое метод пузырька?
ну это когда покупаешь пузырь пива и идешь к знающему человеку, что бы он
подробнее...
Какой язык программирования самый простой в изучении? С какого языка проще начать первые шаги в программировании???
Python.
Хотя дурацкая традиция начинать обучение с Pascal/Delphi/Basic
ещё жива.
В
подробнее...
Зачем нужна рекурсия?
1. Рекурсия подразумевает более компактный вид записи выражения. Обычно это зависимость процедур
подробнее...
С чего начать изучать программирование?
Если начинаете совсем "с нуля", то сперва стоит ответить на вопрос - для чего Вы хотите изучить
подробнее...
Нужно решить задачу на языке Паскаль! Дана матрица А n-го порядка.Найти "добуток" елементов главной и боковой диагонали!
А что такое "добуток"? ("добуток" перевел с украинского как "произведение")
И заодно
подробнее...
что было бы если не было математики
Так вот, зачем нужна математика в жизни?
Потому что если обратится к мнению
подробнее...
Реально ли выучить (вернее понять) язык программирования java ?
Если ты еще не знаешь ни одного языка програмиррования то изучая паскаль. Это для того чтобы понять
подробнее...
помогите решить задачу в паскале. Для массива Х найти среднее арифметическое положительных элементов массива.
const n=5;
var x: array [1..n] of integer;
i,k:integer;
s,sr:real;
begin
подробнее...
помогите пожалуйста срочно решить задачи на языке паскаль: 1)Дано целое число. Если оно является положительным, то прибав
1.
var a:integer;
begin
write(\'введите число\');
read(a);
if (a>1) then
подробнее...
Решите задачу на Паскале: "Найти сумму всех n-значных чисел (1<=n<=4)".
int s = 0;
for (int i = 1; i < 10000; i++)
s += i;
Хотя проще посчитать
подробнее...