4 года назад

Определить, кратно ли заданное число трём; если нет, вывести остаток. (Напишите на языке программирования) Пожалуйста!!!!

Знания

Информатика

1 ответ:

Marceline4 года назад

0 0

var x:integer;

Begin

write('Введите число: '); read(x);

if(x mod 3 = 0) then write('Число кратно трем!') else

write('Число не кратно трем (остаток: '+x mod 3+')');

End.

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

Что не является текстовым редактором? a)OpenOffice.org Write b)MS Word c)WordPad d)Microsoft Paint Помогите, умоляю! 77 балов

Daniel112

OpenOffice.org Writer, MS Word, WordPad - все это текстовые редакторы.
Microsoft Paint - это графический редактор

Ответ: d) Microsoft Paint

0 0

4 года назад

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

Программа, относящаяся к прикладному программному обеспечению: 1) AutoCAD 2) Basic 3) Ccleaner 4) BIOS Помогите пожалуйста!

AlinaIvanovskaya [16]

Программа, относящаяся к прикладному программному обеспечению:
1) AutoCAD

0 0

4 года назад

Задача по информатики Определите количество информации в книге которая содержит 20 страниц На каждой странице 40 строк в каждой

Ольга 1311

1. 20*40=800
2.800*64=51200 символов
Была у нас такая задача в 6-м классе)

0 0

4 года назад

Напечатать таблицу перевода расстояний в дюймах в сантиметры для значений 10, 11, .... 22 дюйма (1 дюйм = 25.4 мм).

долфи

#include <iostream>

using namespace std;

int main() {

setlocale(LC_ALL, "Russian");

int dm;

double cm;

for (dm=10;dm<=22;dm++){

cm=dm*25.4/10;

cout<<dm<<" дюймов = "<<cm<<" сантиметров"<<endl;

};

return 0;

}

0 0

4 года назад

Очень срочно нужно решение задания

СладкаяН

Var
start,finish, x, a, b, c,dx:real;

begin
Write('x, a,b,c =');
Readln(x, a, b, c);
Writeln('Xнач, Xконе, dX =');
Readln(start, finish, dx);
if (x<3)and(b<>0) then
begin
 while (start < finish)do
 begin
 x:= start;
 Writeln('F = ', a*x*x - b*x + c);
 start:= start +dx;
 end;
end
else if (x>3)and(b<>0) then
begin
 while (start < finish)do
 begin
 x:= start;
 if x-c = 0 then writeln('No solution') else
 Writeln('F = ', (x-a)/(x-c));
 start:= start + dx;
 end;
end
else
begin
 while (start < finish)do
 begin
 x:= start;
 if c = 0 then writeln('No solution') else
 Writeln('F = ', x/c);
 start:= start +dx;
 end;
end
end.

0 0

4 года назад