Информатика, опубликовано 2018-08-22 21:04:29 by Гость
Ребяят, помогите пожалуйста, голова не соображает(отблагодарю;З)ну плиизНа паскале печатает на экране в строчку, через запятую все натуральные числа от 3 до этого числа, которые делятся на 3
Ответ оставил Гость
Var
i, k: integer;
st1, st2: string;
begin
write(Введите число: );
readln(k);
st1:=;
for i:=3 to k do
if (i mod 3 = 0) then
begin
str(i, st2);
st1:= st1 + st2 + , ;
end;
st1[Length(st1)-1] := .;
writeln(st1);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на