uses
crt;
const
n = 5;
d = 3;
var
arr: array[1..n]of Integer;
i, sum: Integer;
begin
randomize;
for i:=1 to n do
begin
arr:=Random(20);
writeln(arr);
end;
sum:= 0;
for i:=1 to n do
sum:= sum + sqr(arr div d);
writeln;
writeln(sum);
readln;
end.
задача з масcивами(Pascal)
.буду ОЧЕНЬ благодарная за решение этих задач...:) .
1)заданый массив целых чисел из n елементів.получить и вывести на экран значение, которое равняется сумме квадратов всех целых частиц от деления элементов массива на 3.
2)заданий массив строк из m элементов, в которых записаны слова.Определить количество строк, которые содержат составленные слова,тоесть такие, у которых есть дефис.
1)заданый массив целых чисел из n елементів.получить и вывести на экран значение, которое равняется сумме квадратов всех целых частиц от деления элементов массива на 3.
2)заданий массив строк из m элементов, в которых записаны слова.Определить количество строк, которые содержат составленные слова,тоесть такие, у которых есть дефис.
Цитата: Julja
буду ДУЖЕ вдячна за вирішення цих задач...:) .
1)задати масив цілих чисел із n елементів.отримати та вивести на екран значення, яке дорівнює сумі квадратів усіх цілих часток від ділення елементів масиву на 3.
2)заданий масив рядків із m елементів,у яких записані слова.Визначити кількість рядків,які містять складені слова ,тобто такі,у яких є дефіс.
1)задати масив цілих чисел із n елементів.отримати та вивести на екран значення, яке дорівнює сумі квадратів усіх цілих часток від ділення елементів масиву на 3.
2)заданий масив рядків із m елементів,у яких записані слова.Визначити кількість рядків,які містять складені слова ,тобто такі,у яких є дефіс.
Julja,По-перше,як модератор цього роздiлу дам тобi пораду - у майбутньому створювати теми росiйскою.Форум росiйскомовний.Багато хто навiть не читатимуть цю тему.Я,наприклад,розумiю,а iншi ? По-друге,для кожноi задачi створюй окрему тему.
если нигде не начудил то так вроде:
1.
2.
1.
Код:
2.
Код:
uses
crt;
const
m = 5;
var
arr: array[1..m]of string;
i, count: Integer;
begin
for i:=1 to m do
readln(arr);
count:= 0;
for i:=1 to m do
if (pos('-',arr)<>0) and (pos('-',arr)>1) then Inc(count);
writeln;
writeln(count);
readln;
end.
crt;
const
m = 5;
var
arr: array[1..m]of string;
i, count: Integer;
begin
for i:=1 to m do
readln(arr);
count:= 0;
for i:=1 to m do
if (pos('-',arr)<>0) and (pos('-',arr)>1) then Inc(count);
writeln;
writeln(count);
readln;
end.